Select Code to Download

use strict;

for (my $j = 0; $j <= $#ARGV; $j++) {
    print "ARGV[$j] = $ARGV[$j]\n";
}

t.pl one,two three four
ARGV[0] = one,two
...
ARGV[0] = one two
ARGV[1] = three
ARGV[2] = four