sub{print "miney\n"; print "moh\n";}->() if $cond;