@return_files = readDirectory($directory);




foreach(@return_files)
{
	next if ($_ eq "." || $_ eq "..");
        #######################
        #How can a tell between files and directories?
        ########################
	print OUT "<ul>

   	<li id=\"foldheader\">$_</li>";
	print OUT "</ul>";
}



sub readDirectory
{
	opendir DIR, $directory;
	@files = readdir(DIR);
	return @files;
	closedir(DIR);
}