perl -we 'print "000"|1' 1