my @dircontents = readdir(DIRHANDLE);
my @dirs = grep { -d $_ && $_ !~ /^\.\.?$/ } @dircontents;
my @files = grep { -f $_ } @dircontents;

print "<B>$_</B><BR>\n" foreach (@dirs);
print "$_<BR>\n" foreach (@files);