http://qs1969.pair.com?node_id=84490

die($_=sub{open($_,$0);read($_,$_,40);@_=split('');47; @_=map{chr(ord(shift(@_))+$_)} qw( -35 3 7 -8 85 16 56 -1 -85 13 -25 -9 5 14 -11 57 80 10 67 74 -16 56 55 -13 -69 1 1 68 75 15 59 -4 21 67 -20 69 74 -27 -31 -85);join('',@_);}->("Just another Perl Hacker"));

Brought to you by that crazy but lovable guy... lindex

Edit: chipmunk 2001-06-01