Path and Parameter

#!

use Getopt::Long;
use File::Basename;

foreach (@INC){ 
    print $_."\n"; 
}
my $env;
my $date;

GetOptions(
    'env=s' => \$env,
    'date=s' => \$date, 
);

if(!$env or !$date){
    say "usage : ".dirname($0)."/$0 --env dev|qa|parallel|prod --date <yyyyMMdd>";
    exit -1;
}