my $pod   = '=pod';
my $head1 = '=head1'; 
print DOCFILE <<"DOCS";
$pod

$head1 NAME

$programName
...

DOCS