if (opendir DIR,$dir) {
    # do stuff with contents
}
else {
   print "[WARNING] $dir not present\n";
}