(my $fn = $File::Find::name) =~ tr#/#\\#;