#!/usr/local/bin/perl

opendir (MYDIR, "/u/jqpublic") ||
        die ("Can't open directory");
while ($file = readdir (MYDIR)) {
        next if ($file =~ /^\.{1,2}$|^[^.]/);
        print ("$file\n");
}
closedir (MYDIR);
