NAME

$script_base

$script_base --help-all

HEADER

foreach my $line (@help) {
  print  $fh " " . $line;
}

print $fh <<FOOTER;

SEE ALSO

FOOTER

close $fh;
}