#!/usr/bin/perl

use strict;
use Getopt::Long;

my ($dealer, @supplier, $altsupplier, $min);

GetOptions("dealer=s"       => \$dealer,
           "supplier:s"     => \@supplier,
           "altsupplier:s"  => \$altsupplier,
           "min=s"          => \$min) or usage();

print "\n";
print "You have entered:\n\n";
print "Dealer = $dealer\n";
print "Supplier = @supplier\n" if @supplier;
print "Alt Supplier = $altsupplier\n" if $altsupplier;
print "Min = $min\n";



#
# Message about this program and how to use it
#
sub usage()
{
    print STDERR << "EOF";

usage: $0 [-dealer -supplier -altsupplier -min]

  -h             : this (help) message
  -dealer        : dealer to run for
  -supplier      : supplier code
  -altsupplier   : alternate supplier code
  -min           : minimum name

  example: $0 -dealer A875 -supplier CM CX -min TEST123

EOF
    exit;
}