#!/usr/local/bin/perl use CGI ; print "Content-type: text/html\nPragma: no-cache\n\n
";
local( @dirlist );
opendir DIR, "./";
while( $item = readdir DIR ){
next if( $item =~ /^\./ );
next unless( -d $item );
push @dirlist, $item;
}
closedir DIR;
if( @dirlist ){
print '
