use warnings;
use strict;

my %pod = map { $_ => "=$_" } qw(
    pod head1 head2 head3 head4 over item
    back begin end for encoding cut
);

print <<"DOCS";
$pod{pod}

$pod{head1} NAME

programName
...

DOCS