print &{'Just Another Perl Hacker'},$/;
sub AUTOLOAD{
  *$AUTOLOAD=sub{(split'::',$AUTOLOAD)[1]};
  goto&$AUTOLOAD;
}