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