while ($filename = readdir(HOMEDIR)) {
          print ("$filename\n");
          print ("<br>\n");
 }