Select Code to Download

#!/usr/bin/perl -w

...

# and output them all
print join("\n",@foundfiles), "\n";

#!/usr/bin/perl -w

...
foreach (@searchfiles) {
  print $files{ $_ } if (exists $files{ $_ });
};