MODULES REQUIRED

}; my $pod = join '', @items; my $podend = "=back"; $content =~ s/__END__.*/__END__\n$podheader$pod$podend/s;

my $pm_fh = IO::File->new( $pm_file, 'w' ); $pm_fh->binmode( 'utf-8' ); $pm_fh->print( $content ); $pm_fh->close;