[ create a new paste ] login | about

Link: http://codepad.org/7jzSA8vh    [ raw code | output | fork ]

Perl, pasted on Oct 24:
1
2
3
($;,$_,$|,$\)=("Yoo*se\x7F*cd*Mcpk+"," "x17,1,"\r");
{vec($_=>1+$"=>$^F<<$^F)=ord($/^substr$;=>$"=int rand 16=>1);
print&&select$,,$,,$,,$|/($|+tr/ //c);redo if y/ //>$^F**2};


Output:
1
2
                !
Disallowed system call: SYS__newselect


Create a new paste based on this one


Comments: