package Foo;
sub AUTOLOAD { __PACKAGE__ }
print $foo->();

package main;
sub AUTOLOAD { __PACKAGE__ }
__END__
main