>perl -le"package PkgA; my $foo = 'abc'; package PkgB; print $foo"
abc