Select Code to Download

sub foo {
  return eval { bar( shift ) } || 0;
}

sub bar { return shift; }

print foo( 3 ), "\n";
$@ = 3;
...
__END__
3
0