$somedir = "c:/windows";
if (-d $somedir) {
    print "$somedir exists";
} else {
    print "$somedir does not exist!";
}