sub AUTOLOAD {
  ...
  *{$AUTOLOAD} = sub { ... }; 
  goto &$AUTOLOAD;
}