our $AUTOLOAD;          #a global that gets set by AUTOLOAD

AUTOLOAD { #this block gets called if an unknown subroutune is called
        print "$AUTOLOAD:  @_\n";
        123;
}


g();            #there is no g(), so AUTOLOAD gets executed
print g(1,2,3) , "\n";