do{print "miney\n"; print "moh\n";} if $cond;