C:\Documents and Settings\Administrator>perl $a=1; $b=0; eval{ eval { die "foo lives here" }; print $@ if $@; # prints "bar lives here" $result=$a/$b; }; print $@ if $@; print "print here\n"; ^D foo lives here at - line 4. Illegal division by zero at - line 6. print here
C:\Documents and Settings\Administrator>perl $a=1; $b=0; die "foo lives here"; print $@ if $@; # prints "bar lives here" $result=$a/$b; print $@ if $@; print "print here\n"; ^D foo lives here at - line 3.