% perl -wle '$x=q(/boot); print "OK" if -d $x'
OK