Fair comment.

If I was doing his myself, I'd almost certainly be using File::Find and CGI, and I'd probably do something like:

print ("$_",br,"\n") for @files;
[download]

I suppose I could have suggested this to the OP...