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