I would think that the "works" cases are actually when the tie fails. You should check for that case:

    if(  ! tie %arquivos, IO::Dir, $folder  ) {
        print "Can't read directory ($folder): $!\n";
    } else {
        # ...
    }
[download]

        - tye (but my friends call me "Tye")