##
package FooBar;
require Exporter;
@ISA = qw(Exporter);
@EXPORT_OK = qw(foo);
sub foo {
print "foo called\n";
}
1;
##
##
#!/usr/bin/perl
use strict;
use warnings;
use FooBar qw(foo);
foo();
##
##
#!/usr/bin/perl
use strict;
use warnings;
use foobar qw(foo);
foo();