In addition to the suggestions made by others, keep in mind that readdir will also return sub-directory names, as well as file names. You may need to filter out directories using -X:

while(my $f = readdir($dh)){
   next if -d "$dir/$f";
[download]