#! perl -w

use strict;
use warnings;

use Getopt::Long;
my ( $quiet, $test, $alltype1, $debug, $destdir, $logfile, $help, $version );
GetOptions(
  'debug|verbose|v|d'         => \$debug,
  'test|t'                    => \$test,
  'all|a'                     => \$alltype1,
  'quiet|q'                   => \$quiet,
  'destination|outputdir|o=s' => \$destdir,
  'log|l'                                         => \$logfile,
  'help|h|?'                  => \$help,
  'Version|V'                => \$version
);

-v test