Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
foreach my $item (@ARGV) {
   print "$item was found in \@ARGV\n";
}