foo(); { my $foo = 42; sub foo { print "Foo: $foo" } }