List the files and subdirectories in a directory in alphabetical order.
#!/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"); }