print "Content-type: text/html\n\n";
opendir(HOMEDIR, "\start") ||
 die ("Unable to open directory");
 while ($filename = readdir(HOMEDIR)) {

          print ("$filename\n");
 }
closedir(HOMEDIR);