perl Getopt::Long

#!/usr/bin/env perl
#
use strict;
use warnings;
sub usage() {
    print STDERR "USAGE: $0 --seed <seed list file> --dump <dumped json file> --out <output json file>\n";
    exit(0);
}

my $HELP;
my $DEBUG;
my @SEED_FILES;
my @DUMP_FILES;
my $OUT_FILE;

use Getopt::Long;
GetOptions(
    "dump|d=s"  => \@DUMP_FILES,
    "seed|s=s"  => \@SEED_FILES,
    "out|o=s"   => \$OUT_FILE,
    "debug"     => \$DEBUG,
    "help"      => \$HELP
) or usage();
usage() if $HELP;
usage() unless @SEED_FILE and @DUMP_FILES and $OUT_FILE;

my %seeds = (); 
loadSeeds( \@SEED_FILES, \%seeds );