Select Code to Download

foreach (@ARGV) { ++$Y{$y}, next if $y eq $_; }

foreach (@ARGV) {
    if ($y eq $_) {
...
        next;
    }
}

while (@ARGV && $ARGV[0] =~ /^-/) {
    my $arg = shift @ARGV;
...
    ++$debug, next if $arg eq '-d';
    die "Unknown option '$arg'\n";
}