Select Code to Download

warnings::warnif "Can't opendir($dir_name): $!\n";

P:\test>perl -Mstrict -wl
opendir D, 'c://System Volume Information' or warn $!,$/, 'OS reports:
+', $^E;
...
^Z
Invalid argument
OS reports:Access is denied at - line 1.

P:\test>perl -MFile::Find -Mstrict -wl
{
...
}
^Z
.