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);
}

##</code><code>##

sub version { #print version number and exit
  print "$VERSION\n";
  exit(0);
}

##</code><code>##

my $result = GetOptions
  (
   "version" => \&version, # print version and exit.
   "help" => \&help, # print basic help and exit.
   "vendor=s" => \$vendor, # The vendor code to update for.
   "pricefile=s" => \$pFile, # The vendor price file we're reading.
   "pricesource=s" => \$pSource, # name of the new price list,
   "live" => \$useLive, # Are we using the live database?
   "no-create" => \$no_create, # Don't create new items.
  );