$Parent::AUTOLOAD = $AUTOLOAD;
$self->Parent::AUTOLOAD(@_);

##</code><code>##

if (we can do something) {
   ...
}
else {
   no strict 'refs';
   foreach my $super (@{'${class}::ISA"}) {
       my $method;
       if ($method = $super->can('AUTOLOAD')) {
           ${"${super}::AUTOLOAD"} = $AUTOLOAD;
           return $class->$method(@_);
       }
   } 
}