Um, are you actually printing the HTML you define in the loops? And it seems to be wrongly quoted...perhaps something like this:

if (scalar ( keys %arquivos) ne 0) {
    foreach (keys %arquivos) {
        if ($_ ne "." && $_ ne "..") {
            print qq{<a href="$file_folder$_\">$_</a>\n};
        }
    }
} else { print "These aren't the files you're looking for. Move along.
+\n"; }
[download]

Otherwise, could you please explain the line I corrected?

--
my one true love