>perl -wMstrict -le
"$a=27; package foo; print $::a;
"
27