Thanks for the additional info. Now everything works. Reference your script I would like to learn more about how it works. Can you please explain what is going on in this script? I am not familiar with this part:

  my @files = map { "$dir/$_" } grep !/^\.{1,2}$/, readdir(DIR);
[download]

And I need some guidance on what the script is doing here:

truncate(FILE,0) || die "truncate - $file : $!\n";;
     seek( FILE,SEEK_SET,0) || die "seek - $file : $!\n";
[download]

Thanks!