use Getopt::Long;
my ($verbose, $quiet, $test, $debug, $help) = (0,0,0,0,0);
GetOptions ('verbose' => \$verbose, 'quiet' => \$quiet, 'test' =>
\$test, 'help' => \$help, 'debug' => \$debug);