perl -Mstrict -e "package PA; my $foo = 'hello'; package PB; use strict; print $foo;"