programming-examples/perl/SystemFunction/Using eval to evaluate an expression.pl

$x = 1;
$y = 0;
eval {$result = $x / $y};
print "eval says: $@" if $@;