my $foo = 'bar';
BEGIN {
 print $foo;
}