print DOCFILE <<"DOCS"; =pod =head1 NAME $programName ... DOCS