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