Select Code to Download

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

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