Select Code to Download

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

 
print map {$_ = "$_\n";} @files;