sub usage {
  print "\nUsage:\n";
  print "======\n";
...