opendir(DIR, $directory) || die print "Couldn't open directory";
my @unscont = sort grep !/^\.\.?$/ && !/\.gif$/, readdir(DIR);
closedir(DIR);

@files = grep(/\./, @unscont);
@dirs = grep(!/\./, @unscont);

for my $file (@files) {
    print qq[  <a style="{font-size: 13px; color: #000000;"} href="./$this?func=read&file=$file&dire=$dire">$file</a><br>\n];
}