$foo = 'foo';

sub foo {
print $foo . "\n";
my $foo = 'bar';
print $foo . "\n";
}

foo;

##</code><code>##

foo
bar