perl -e 'open TEST,"."; do {( -d TEST )?print "1$/" : print "0$/";}'
1

##</code><code>##

perl -e 'open TEST,"." && do {( -d TEST )?print "1$/":print "0$/";}'
0

##</code><code>##

perl -e 'open TEST,"." and do {( -d TEST )?print "1$/": print "0$/";}'
1