#!/usr/local/bin/perl

opendir (MYDIR, "/u/jqpublic") ||
        die ("Can't open directory");
# the following is a trick: "." is alphabetically less than
# anything we want to print, so it makes a handy
# initial value
$lastfile = ".";
$done = 0;
until ($done == 1) {
        rewinddir (MYDIR);
        $currfile = "";
        while ($file = readdir (MYDIR)) {
                next if ($file =~ /^\./);
                if ($file gt $lastfile &&
                 ($currfile eq "" || $file lt $currfile)) {
                        $currfile = $file;
                }
        }
        if ($currfile eq "") {
                $done = 1;
        } else {
                print ("$currfile\n");
                $lastfile = $currfile;
        }
}
closedir (MYDIR);
