perl -le"while ($a=0) { print 'ysth is right'; last }"