Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
$|++;$,=qq'#!crazyinsomniac \n';
...
61  63 6b  65  72
0a _);#>   #### ##
print`$,`,qq,\n(^%|%^)->($_\n,,`shift`if$_=join q,,,@,;

Select or download this

F:\dev\japh>perl shabang.pl oy!
J F:\indigoperl\bin\perl.exe -e #!crazyinsomniac
...


F:\dev\japh>