use File::Find;

my $dir = '\TestDir';

if(-d "$dir")  #also tried:  if(-d $dir)
{
   find( \&SubRoutineHere, $dir);
}
else
{
   print "No such directory\n";
}