Select Code to Download

#!/usr/bin/perl -w
# untitled1.pl
...
foreach $line (@file) {
        system($line) && die "Can't execute $line: $!";
}