use strict;

foo();
my $foo = 2;

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