Select Code to Download

my ($input,$stat,$csv);
while (my $arg = shift @ARGV) {
...
 die "$arg: invalid argument\n";
}
defined $input && defined $csv && defined $stat || die "You should def
+ine -i, -o and -s!\n";