use strict;
my ($v, $w) = (5, 0);
my $rechnung = '$v * 10 + 33';

print '$v = ', $v, ', $w = ', $w, "\n";

eval('$v/$w');  # gibt 5/0 --> Fehler
print "Ging schief wegen: $@" if($@);

eval('foobar($v)');  # gibt's nicht --> Fehler
print "Ging schief wegen: $@" if($@);

print "Nun sollte 83 rauskommen: ";
print eval($rechnung), "\n";  # geht gut
print "Ging schief wegen: $@" if($@);