opendir(DIR, $directory) || die print "Couldn't open directory";
my @unscont = readdir(DIR);
closedir(DIR);

my @unfiles = grep(/\./, @unscont);
my @undirs = grep(!/\./, @unscont);

@files = sort(@unfiles);
@dirs = sort(@undirs);

my @noshow = (".", "..");

foreach $f (@files)
{
  unless (grep /$f/, @noshow)
  {
   print "  <a style=\"{font-size: 13px; color: #000000;\"} href=\"./$this?func=read&file=$f&dire=$dire\">$f</a><br>\n";
  }
}