package Foo;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(hello say);
@EXPORT_OK = qw(hello say);

sub hello
{
"Hello, world!\n";
}

sub say
{
print @_;
}

##</code><code>##

$ perl -MFoo -de 42
> x %Foo::
(contents of Foo package)
> say hello
Hello, world!
> undef %Foo::
> x %Foo::
 empty array
> say hello