Select Code to Download

@files = <>;
chomp @files; # Since there are trailing newlines
foreach $file (@files) {
...
        print "\n\nThis is a directory: " . $file."\n";
    }
}

use strict;
use warnings; 

...
        print "\n\nThis is a directory: $file\n";
    }
}