sub myhandler : ATTR(CODE) {
      my($pkg, $symbol, $referent....) = @_;
      ...
      *{$symbol} = sub {
          # additional code
          goto &$referent;
       }
   }