use strict;
use File::Find;

my $startDir = '\directory\myNTpath';

unless (-d $startDir) {
    die "Directory '$startDir' is not a Directory.\n";
}
  
if(! -r $startDir)  #also tried -x and -w here but it never works
{ 
        #this never prints even if I have no permissions in directory
  	print "no permissions to start Directory\n";
}

find(\&processSub, $startDir);

sub processSub {
 print "Found $File::Find::name\n";
}