Select Code to Download

use Pod::Html;

pod2html @ARGV;

use Pod::Simple::HTML;

Pod::Simple::HTML->parse_from_file( @ARGV );

package My::Pod::HTML::Simple;
use base qw( Pod::HTML::Simple );
...
sub do_link { ... whatever you want ... }

1;

use My::Pod::Simple::HTML;

My::Pod::Simple::HTML->parse_from_file( @ARGV );