Select Code to Download

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