Select Code to Download

use Pod::POM;

my $parser =  Pod::POM->new();
my $pom = $parser->parse_file(...);
my $h1 = $pom->add($parser, 'head1', 'This is a new head1');

my @SECTIONS = qw(name synopsis ...);

...
    print "=head1 ", uc($title), "\n\n";
  }
}