Используя тестовый оператор -d в perl

Я просматриваю чей-то старый код и наткнулся на это утверждение:

$tmpStr = "/some/file/location/";

if(-d $tmpStr){
   printf("1");
}else{
   printf("2");
}

Я не понимаю, что -d ] ... поможет?