use strict; use warnings;
use Foo qw/ bar /;

print bar('baz');
__END__

##</code><code>##

package Foo;
use strict; use warnings;
use parent qw/ Exporter /;
our @EXPORT_OK = qw/ bar /;

sub bar { return uc shift }

1;