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="./$this?func=read&file=$f&dire=$dire">$f</a><br>\n|; }