_:${~$/&~$;&$^}++;print "perl monks rule!\n";goto _ if(${~$/&~$;&$^}<1
+0);
[download]

lame, i know :)