$\ = ' ';  sub AUTOLOAD
{@_=caller;print shift}
{ package Just ;&::() }
{ package Another;&:: }
{ package Perl ;&::() }
{ package Hacker;::() }