sub baz { my $result = eval "1 = 2"; die $@ if $@; $result; }