use Pod::Html;

pod2html @ARGV;

##</code><code>##

use Pod::Simple::HTML;

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

##</code><code>##

package My::Pod::HTML::Simple;
use base qw( Pod::HTML::Simple );

sub do_link { ... whatever you want ... }

1;

##</code><code>##

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

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