#Pod::Html::pod2html(@args); my $p = Pod::Simple::HTML->new(); $p->html_css(substr($args[7],6) ); my $fn = substr ( $args[5], 10 ); open FH, ">" . $fn or die("can't open $fn for writing $!"); $p->output_fh(*FH); $p->index(1); $fn = substr ( $args[4], 9) ; $p->parse_file( $fn ) or die("can't open $fn to parse $!"); close FH;