use Pod::HtmlEasy ;
  
  my $podhtmleasy = Pod::HtmlEasy->new(
  on_L => sub {
            my ( $this , $L , $text, $page , $section, $type ) = @_ ;
            if   ( $type eq 'pod' ) {
              $section = "#$section" if $section ne '' ;
              return "<i><a href='http://search.cpan.org/perldoc?$page$section'>$text</a></i>" ;
            }
            elsif( $type eq 'man' ) { return "<i>$text</i>" ;}
            elsif( $type eq 'url' ) { return "<a href='$page' target='_blank'>$text</a>" ;}
          } ,
  }
  
  my $html = $podhtmleasy->pod2html('test.pod' , 'test.html') ;