And it's always the main package:

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

package main;
sub AUTOLOAD { __PACKAGE__ }
__END__
main
[download]

I just can't find the documentation for this behaviour.

-- Frank