package Foo;
sub AUTOLOAD { __PACKAGE__ }

package main;
sub AUTOLOAD { __PACKAGE__ }

# should print Foo
print $Foo::foo->(); # main

print Foo::foo(); # Foo