Select Code to Download

while (my $file = <FP>) {
    chomp $file;
    ...
}

my @files = `find . -ls`;
foreach my $line (@lines) {
   chomp $file;
   ...
}