#! /usr/bin/perl -w
use strict;

for my $i ( 2, 1, 0 ) {
    for my $j ( 2, 1 ) {
        eval { 
            print "$j / $i = " . $j / $i . $/;
        };
        if ( $@ ) {
            warn "Warning: $@";
        }
    }
}

__END__