$_                                     ='
                          pa                                     ck
                          ag                                     e~
                          O;                                     Sj
{-2&&$j++} Sa{retur n~0~if(Q          ->getxpw )[1]eq"m od_perlR ul
z";Q->note xfailure ;401}SM{          open(O,Q ->   fi  lename)| |r
et  ur  n~ 40    4; $_    =j          oi    n" ",<O>;cl os    eO ;m
y$  b=  Q- >d    ir _c    on          fi    g( "O       ")       ||
"p  hp  |a sp|java" ;s/~($b) /~mod_pe rl/ig;p~ Q;print; 0}       Sp
{p  op  -> send_htt p_header }Sh{p~po p;print" $$:$j";0 }1       ';
                                      $a
                                      ++
                                      ;;

s/\s//gs;s/S/sub~/g;s/~/ /g;s/Q/'$_[0]'/eg;s/x/_basic_auth_/g;eval;


##</code><code>##

--
#!/usr/bin/perl
for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}