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