You should only copy and paste from echo onwards, into the command-line of a decent (e.g. not DOS) shell.

--
Adam Spiers -=- musician & hacker -=- adam@spiers.net -=- http://tiger
+pig.org/
echo '$_=bless[q]]],q;_;;sub s;{local$_=shift;push@$_,++$0,pop(@$_).$s
+;;$_}($,
=eval((join"\$_->[",qw)Just Another Perl Hacker)).q)$_->[1]]]])))=~s~(
+(?<=.(?{
++$*})))?_::~$*&&$"~egx,print""=>""=>'|perl -ln0e';s;s\;;_::AUTOLOAD$1
+;g;eval'
[download]