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];
}

##</code><code>##

(/\./ ? push @files, $_ : push @dirs, $_) for @unscont;

##</code><code>##

my @dirs = grep -d "$directory/$_", @unscont;
my @files = grep ! -d "$directory/$_", @unscont;