Select Code to Download

#!perl
#xyz.pl
...
    print $line, "\n";
}
close FH;

#!/usr/bin/perl
...
foreach my $file(@files) {
    print $file, "\n";
}