Select Code to Download

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

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

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

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

sub doif(&$) { $_[0]->() if $_[1] }
doif{print "miney\n"; print "moh\n";} $cond;

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

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