Select Code to Download

use strict;
use warnings;
...
foreach my $item (@{@ARGV[0..1]}) {
        print "$item\n";
}

>perl test.plx a b
one
two
three