Help for this page

Select Code to Download


  1. or download this
    @ARGV = ${$-=$.}, s<#<>q#>#q<<>>
#exegesis=>print, hacker=>unless
$/=q=echo q/Just another Perl /|
$/=!~40.46.42.41#apocalypse=>die
  2. or download this
    Exegesis print hacker unless echo /Just another Perl/ | 
apocalypse => die
  3. or download this
    do{
    @ARGV = ${$-=$.};
...
} unless
( $/ = (q=echo q/Just another Perl /|
$/=) !~ 40.46.42.41 ); #apocalypse=>die
  4. or download this
    $/=
('echo q/Just another Perl /|
...
$_ =~ s//<>/ee;
print; 
hacker;
  5. or download this
    $/=
('echo q/Just another Perl /|
...
$_= eval "$a";
print "$_";
qq'hacker';
  6. or download this
    C:\japh_debug.pl
vvvvvvvvvvvvvvvvvvvv -> $-=0 : $0=C:\japh_debug.pl
...

^^^^^^^^^^^^^^^^^^^^
Just another Perl hacker