$status = opendir(dirhandle, $name); #!/usr/bin/perl -w $name = "c:\\"; opendir(DIR, $name) or die "Can't open $name due to $!"; $entry = readdir(DIR); while ( defined($entry) ) { print "$entry\n"; $entry = readdir(DIR); } closedir(DIR);