Select Code to Download

use Getopt::xxx;
getopts('e:'; \%options);
...
}else {
print 'your e arg is ', $options{e}
}

my $all_options = "xp:b:f:s:";
my @s_options = $all_options =~ /[^:](?=:)/g;
...
    last if parsearg $index, $argv;
}
my @files = splice @ARGV, $need + 1;