Try this, save as ppselfdoc.PL, and make sure not to invoke pp with -f PodStrip :)

#!/usr/bin/perl --
use strict;
use warnings;
use Pod::Html;
use PAR;

if (@ARGV){
    print "$_\n" for PAR::read_file( q!script/ppselfdoc.PL!);
} else {
    $ENV{PAR_0} ||= File::Spec->rel2abs(__FILE__);

    warn "RUNNING pod2html $ENV{PAR_0}\n";
    my @html_options = ('--title=My Test');
    pod2html $ENV{PAR_0}, @html_options;
}

exit;

=head1 NAME

NAME - ppselfdoc.PL

=head1 SYNOPSIS

print html

    ppselfdoc.PL

print sourcecode

    ppselfdoc.PL 1

=cut
[download]