#!/usr/bin/perl
$|++;$,=qq'#!crazyinsomniac \n';
print,qq,\\n,if $,=qq~ $^X -e $,~;
print(@,)x10,qq,\n,if@,=#$$;'q#'
map(chr hex $_ , qw _
4a  75 73  74 20
41 6e  6f 74     
68 65  72        
20  50  65 72 6c 
20 48            
61  63 6b  65  72
0a _);#>   #### ##
print`$,`,qq,\n(^%|%^)->($_\n,,`shift`if$_=join q,,,@,;

##</code><code>##

F:\dev\japh>perl shabang.pl oy!
J F:\indigoperl\bin\perl.exe -e #!crazyinsomniac
u F:\indigoperl\bin\perl.exe -e #!crazyinsomniac
s F:\indigoperl\bin\perl.exe -e #!crazyinsomniac
t F:\indigoperl\bin\perl.exe -e #!crazyinsomniac
  F:\indigoperl\bin\perl.exe -e #!crazyinsomniac
A F:\indigoperl\bin\perl.exe -e #!crazyinsomniac
n F:\indigoperl\bin\perl.exe -e #!crazyinsomniac
o F:\indigoperl\bin\perl.exe -e #!crazyinsomniac
t F:\indigoperl\bin\perl.exe -e #!crazyinsomniac
h F:\indigoperl\bin\perl.exe -e #!crazyinsomniac
e F:\indigoperl\bin\perl.exe -e #!crazyinsomniac
r F:\indigoperl\bin\perl.exe -e #!crazyinsomniac
  F:\indigoperl\bin\perl.exe -e #!crazyinsomniac
P F:\indigoperl\bin\perl.exe -e #!crazyinsomniac
e F:\indigoperl\bin\perl.exe -e #!crazyinsomniac
r F:\indigoperl\bin\perl.exe -e #!crazyinsomniac
l F:\indigoperl\bin\perl.exe -e #!crazyinsomniac
  F:\indigoperl\bin\perl.exe -e #!crazyinsomniac
H F:\indigoperl\bin\perl.exe -e #!crazyinsomniac
a F:\indigoperl\bin\perl.exe -e #!crazyinsomniac
c F:\indigoperl\bin\perl.exe -e #!crazyinsomniac
k F:\indigoperl\bin\perl.exe -e #!crazyinsomniac
e F:\indigoperl\bin\perl.exe -e #!crazyinsomniac
r F:\indigoperl\bin\perl.exe -e #!crazyinsomniac

Can't exec crazyinsomniac at -e line 1.

(^%|%^)->(Just Another Perl Hacker


F:\dev\japh>