programming-examples/perl/File/When you're done with a directory, you need to close it with the closedir command.pl

#!/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);