Select Code to Download

print foo( 3 ), "\n";     # 3

...
my $e = $@;
print foo( $e ), "\n";    # 3
print $e, "\n";           # 3  Still avilable to us.