##
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();