(print "miney\n"),(print "moh\n") if $cond;