package not_main; { print $foo; print $main::foo; print "\n"; } package main;