Help for this page
@l = qw( -1 43 -2 1 -84 33 45 1 5 -12 -3 13 -82 48 21 13 -6 -76 40 25 2 8 -6 13 -104);
74 117 115 116 32 65 110 111 116 104 101 114 32 80 101 114 108 32 72 97 99 107 101 114 10
if(my@t=unpack"C*",do{local($/);<DATA>}) { my$t=0; ... $c+=$l[0]; $d=0 }
if($d<@l){ open M,">>$0"; ... (t(*M,(map{chr}@p),'~',chr($d+1); exec"perl $0" }
www.com | www.net | www.org
No recent polls found