do{
    @ARGV = ${$-=$.};
    s<#<>q#>#q<<>>#exegesis;
    print;
    hacker;
} unless
( $/ = (q=echo q/Just another Perl /|
$/=) !~ 40.46.42.41 ); #apocalypse=>die