Select Code to Download

readdir() attempted on invalid dirhandle  at C:/Perl/site/lib/File/Dir
+Walk.pm line 100.
closedir() attempted on invalid dirhandle  at C:/Perl/site/lib/File/Di
+rWalk.pm line 117.

        opendir my $dirh, $path || return FAILED;
        my @dir_contents = readdir $dirh;
...
        }

        closedir $dirh;

#!/usr/bin/perl
use strict;
...
$walker->onDirEnter(\&doDir);
$walker->walk($currdir);
printStats();