Select Code to Download

my %d;
foreach (@ARGV)
...

#this is for checking only..
foreach (keys %d) { print "$_:" . $d{$_} . "\n"; }

my $defaults = {};
%defaults = map {(($_ =~ /([^\=]+)\=(.+)/)?($1 => $2):($_ => ''))} @AR
+GV;
print join(",", keys %defaults);