>perl -wMstrict -le
"{ package Foo;
   use warnings;  use strict;
   our $AUTOLOAD;
   sub AUTOLOAD {
     eval { sub foo { return 'FOO'; } };
     sub bar { return 'BAR'; }
     print qq{AUTOLOADing '$AUTOLOAD'};
     no strict 'refs';
     *$AUTOLOAD = sub { return uc $AUTOLOAD };
     goto &$AUTOLOAD;
     }
   }
 ;;
 print 'foo? ', exists &Foo::foo;  print Foo->foo;
 print 'bar? ', exists &Foo::bar;  print Foo->bar;
 print 'baz? ', exists &Foo::baz;  print Foo->baz;
 print 'baz? ', exists &Foo::baz;  print Foo->baz;
"
foo? 1
FOO
bar? 1
BAR
baz?
AUTOLOADing 'Foo::baz'
FOO::BAZ
baz? 1
FOO::BAZ