use strict;

my $foo = 1;
foo();
my $foo = 2;

sub foo {
	print "foo: $foo\n";
}

##</code><code>##

my $foo = 2;

##</code><code>##

$foo = 2;