I'm still whacking...
#!/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,,,@,;
update:
Hmmkay, some folks have had this thing crash perl, so what follows is what i get with ActivePerl and IndigoPerl, both latest builds.
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>
|
|
___crazyinsomniac_______________________________________
Disclaimer: Don't blame. It came from inside the void
perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"
