*AUTOLOAD = \&BASE_CLASS::AUTOLOAD;  #this doesn't seem to work
    
##</code><code>##

BEGIN {
eval <<"__CODE__";
sub AUTOLOAD {
   $BODY_OF_ORIG_AUTOLOAD
}
__CODE__
}

##</code><code>##

sub AUTOLOAD {
   ...            # Body of Autoload
}