my $dir = "c:/docume~1/chris/TestDir";
if (-d $dir) {
    print "It Exists";
}
else {
    print "Does Not Exist";
}