opendir(DIR, $directory) || die print "Couldn't open directory";
my @stuff = readdir(DIR);
closedir(DIR);
shift @stuff;
shift @stuff;
@dirs = sort(@undirs);
foreach $f (@files)
{ print qq|  <a style="{font-size: 13px; color: #000000;"} href="./$th
+is?func=read&file=$f&dire=$dire">$f</a><br>\n|; }
[download]

Just a guess...
grep can be quite slow and it's kinda useless there :)
<RB> Probably not entirely what you want tho :|

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.