$ perl -we"print 'omg' if -d 'bcc' == -d 'cygwin'" 
Use of uninitialized value in numeric eq (==) at -e line 1.
Use of uninitialized value in numeric eq (==) at -e line 1.
omg$ ls bcc cygwin
ls: bcc: No such file or directory
ls: cygwin: No such file or directory
$