perl -MO=Deparse,-p -e"die $::"
die($main::);
-e syntax OK
[download]

$::foo is $main::foo