if(!opendir(DIR,$startDir)){
print "No permission to open directory $startDir\n";
exit 0;
}else{ closedir(DIR); }