## File: FOO.pm
package FOO;
print "loading foo\n";
sub foo { print "in foo::foo\n"; }
1;

##</code><code>##

## main program
use autouse 'FOO' => qw/foo/;
unshift @INC, '.';
foo;
__END__
loading foo
in foo::foo