#!/usr/local/bin/perl 

opendir(HOMEDIR, "/u/jqpublic") || die ("Unable to open directory"); 
@files = readdir(HOMEDIR); 
closedir(HOMEDIR); 
foreach $file (sort @files) { 
    print ("$file\n"); 
}