#!/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,,,@,;