Select Code to Download

   # issues "Ambiguous use of X resolved to Y" warning that 
   # I don't know how to turn off, these don't work:
...
   # no strict 'refs'
   my $old_scan_podpath = *{Pod::Html::scan_podpath}{CODE};

   # issues "Subroutine X redefined at Y" warning, but
   # I can turn that one off with $^W
...
   no strict 'refs';
   my $old_scan_podpath = *{'Pod::Html::scan_podpath'}{CODE};

   local(*Pod::Html::scan_podpath) = sub {
      # do stuff here
...
      &$old_scan_podpath;  # uses @_
   };