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