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"));
[download]

Edit: chipmunk 2001-06-01