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