Select Code to Download

package Foo;
sub AUTOLOAD { __PACKAGE__ }
...
print $Foo::foo->(); # main

print Foo::foo(); # Foo