#!/usr/local/bin/perl opendir(HOMEDIR, "/u/jqpublic") || die ("Unable to open directory"); while ($filename = readdir(HOMEDIR)) { print ("$filename\n"); } closedir(HOMEDIR);