tina@tuxedo:~> perl -Mstrict -wle'
my $x;
BEGIN {
 $x = 1234;
}
warn $x;'
1234 at -e line 6.
tina@tuxedo:~>