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