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