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

##</code><code>##

my $foo;
print $foo;
$foo = 'bar';