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

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

1;