perl -le ' $a=27; package foo; print $a'