#! /usr/local/bin/perl
use Cwd;
$dir = cwd;
print "dir=> $dir\n";
opendir(THISDIR, "$dir");
@dirList = ;
print "OPEN @dirList\n";
@dirList = readdir THISDIR;
print "READ @dirList\n";
print "\n\nThe directory listing after using readdir\n";
foreach $dir (@dirList){
print "$dir\n";
}