in reply to download hidden files

I think you'll get more of it to work if you change that line:

print "Content-Disposition: inline; filename=$filename\n";

[download]
to 
print "Content-Disposition: attachement; filename=$filename\n";

[download]

cause, after all, you want to download the file, and not view it inline.

He who asks will be a fool for five minutes, but he who doesn't ask will remain a fool for life.

Chady | http://chady.net/

In Section Seekers of Perl Wisdom