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