P:\test>perl -MFile::Find -Mstrict -wl
{
        local $^W;
        find( sub{ print; }, 'c:/System Volume Information' );
}
^Z
.