use strict;

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

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