#!/usr/local/bin/perl

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