in reply to how can i also show sub folders

First, I'd like to warn you to look above this snippet for security problems. I don't see anything here to say you run this in taint mode, or use CGI; for query parsing. You may be doing that already, which is good.

File::Find is a great help in recursing through directory trees. It will do the right thing with symlinks, and can handle all the file tests you need to do.

If you have many, you may want to consider a Schwartzian Transform for a case insensitive sort.

Update: Re your reply:

  1. has been superceded by, which is a modern standard. Your query parsing will be improved by using it.
  2. You should make use of the server's Basic Authentication, rather than handling it in your script. Consider using https for this.
  3. The -wT options on the shebang line will turn on warnings and taint mode. Taint checking forces you to examine user input for damaging stuff. In this case, can a user send '../../../../*' and wipe clean your mounted filesystems?
  4. use strict; as always. It will frustrate you at first, but it is truly worth it. It prevents some sneaky bugs and spots many typos.
'perldoc perlsec' is a good read. I also regard the article phrack 55.7 as required reading. It is a real eye-opener.

After Compline,