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