sub help { # print basic help menu and exit.
  print "vpimport\n";
  print "version $VERSION\n";
  print "Format vendor price files for import to InOrder.\n\n";
  print "Usage: vpimport [--vendor <VENDOR>] [--pricefile <file>] "
      . "[--outfile <file>] [--pricesource <name>] [--live] "
      . "[--no-create] [--help].\n";
  print "--vendor <VENDOR>     The vendor code of the vendor to update.\n";
  print "--pricefile <file>    The name of the vendor's price file.\n";
  print "--pricesource <name>  The price source to add/update.\n";
  print "--live                Use InOrder_Live instead of "
      . "InOrder_Development\n";
  print "--no-create           Don't create new inventory/vendor items.\n";
  print "--help                Print this help and exit.\n";
  print "--version             Print version and exit.\n";

  exit(0);
}