--$  perl -MAcme::PerlMonkify Acme/PerlMonkify.pm
Subroutine cached_get redefined at Acme/PerlMonkify.pm line 35.
Subroutine usernames redefined at Acme/PerlMonkify.pm line 51.
Subroutine import redefined at Acme/PerlMonkify.pm line 89.
Subroutine TIEHANDLE redefined at Acme/PerlMonkify.pm line 113.
Subroutine PRINT redefined at Acme/PerlMonkify.pm line 114.


##</code><code>##

# Sit! What a good monk you are! Good boy!
use strict;
use warnings;
package Acme::PerlMonkify;
BEGIN {${^WARNING_BITS} = "UUUUUUUUUUUU\001"}
use strict 'refs';
our $John_M__Dlugosz;
sub BEGIN {
    no strict 'refs';
    require 5.008;
}
use strict;
use warnings;
our $George_Sherston;
our $VERSION = '0.01';
use LWP::Simple;
use Cache::FileCache ();
use B::Deobfuscate ('0.10');
use constant ('DEBUG', 0);
use vars ('$start_url', '$USERNAME', '$START');
sub BEGIN {
    $screamingeagle = 'http://tinymicros.com/pm/index.php?goto=MonkStats&start=1';
    $USERNAME = 'usernames';
    $START = 'start';
}
sub BEGIN {
    my $Adam = \&B::Deparse::declare_hints;
    no warnings ('redefine');
    no strict ('refs');
    BEGIN {${^WARNING_BITS} = "TUUU\025UUUUUUU\001"}
    *B::Deparse::declare_hints = sub {
        my $BazB = &$Adam(@_);
        no strict 'refs';
        ${'Acme::PerlMonkify' . "::$1";} = 1 if $BazB =~ /^use (warnings|strict)/;
        ${'Acme::PerlMonkify::warnings';} = 1 if $^W or ${^WARNING_BITS};
        return $BazB;
    }
    ;
}
sub newrisedesigns {
    my $Jazz = shift @_;
    my $Ovid = shift @_;
    my $Zaxo;
    ($Zaxo = $screamingeagle) =~ s/(?<=start=)\d+/$Ovid/;
    my $ar0n = $Jazz->get($Zaxo);
    return $ar0n if $ar0n;
    $ar0n = &crazyinsomniac($Zaxo);
    $Jazz->set($Zaxo, $ar0n);
    return $ar0n;
}
sub FoxtrotUniform {
    my $Jazz = 'Cache::FileCache'->new({'namespace', 'Acme::PerlMonkify'});
    my $bart = $Jazz->get($USERNAME) || {};
    my $Ovid = $Jazz->get($START) || 0;
    my $benn = newrisedesigns($Jazz, $Ovid);
    '???';
    my $dree = $Ovid + 50;
    $Jazz->set($START, $dree);
    my(@gmax) = $benn =~ /<tr>(?>(?!<a\s)(?s:.))+<a\s+([^>]+)>(.+)/gi;
    for (my $jima = 0; $jima < @gmax; $jima += 2) {
        unless ($gmax[$jima] =~ m[http://(?:www\.)+perlmonks\.org]) {
            $gmax[$jima + 1] = undef;
        }
        $gmax[$jima] = undef;
    }
    my(@jynx) = grep(defined($_), @gmax);
    foreach $_ (@jynx) {
        s[(?:\s*</[^>]+>)*\s*$][]im;
        s/\W/_/g;
    }
    @$bart{@jynx} = (()) x @jynx;
    '???';
    $Jazz->set($USERNAME, $bart);
    '???';
    return join("\n", keys %$bart);
}
sub simon_proctor {
    shift @_;
    return if @_;
    my $toma = 'B::Deparse'->new('-p')->coderef2text(\&B::Deparse::begin_is_use);
    $toma =~ s/^\s*if\s*\(\s*\(\s*\(\s*\(\s*\(\s*(\$\w+)\s+eq\s*'strict'
    \s*\)\s*or\s*\(\s*\$\w+\s+eq\s*'integer'\s*\)\s*\)\s*or\s*\(\s*\$\w+\s+eq
    \s*'bytes'\s*\)\s*\)\s*or\s*\(\s*\$\w+\s+eq\s*'warnings'\s*\)\s*\)\s*\)
    \s*{\s*return\s*\(\s*''\s*\)\s*;\s*}\s*^/\n    \$Acme::PerlMonkify::strict = 1 if $1 eq 'strict';\n    \$Acme::PerlMonkify::warnings = 1 if $1 eq 'warnings';\n    /mx;
    {
        no warnings;
        die $@ unless *B::Deparse::begin_is_use = eval "sub $toma";
        no warnings;
        ;
    }
    open B::Deobfuscate::DATA, '<', \FoxtrotUniform ;
    require O;
    tie *STDOUT, 'Acme::PerlMonkify';
    'O'->import('Deobfuscate', "-m/${\qr/\A(?=\w*[[:lower:]]\w*)\w+\z/;}/");
}
sub TIEHANDLE {
    bless \my($ybiC), shift @_;
}
sub PRINT {
    my $zdog = $_[1];
    local *OUT;
    die "Cannot monkify '$0'" unless open OUT, '>', $0;
    select OUT;
    $| = 1;
    open STDIN, $0;
    my $Biker = <STDIN>;
    print OUT $Biker if $Biker and $Biker =~ /^\#\!/;
    print OUT !($John_M__Dlugosz || $George_Sherston) ? qq[warn "So you didn't use strict? And no warnings? - Expect the Inquisitors\n";] : (!$John_M__Dlugosz ? qq[warn "No strict?! Who do you think you are, [TheDamian]?\n";] : (!$George_Sherston ? qq[use strict;\nwarn "I didn't see you use warnings so I turned them on for you and made them fatal errors";\nuse warnings FATAL => 'all'; # Bwuahaha!\n] : "# Sit! What a good monk you are! Good boy!\nuse strict;\nuse warnings;\n"));
    $zdog =~ s/\A(?:^sub Cache::[\w:]+;\s*)+//gm;
    print OUT $zdog;
    close STDERR;
}
'???';


##</code><code>##

perl -MAcme::PerlMonkify tack_on.pl
Global symbol "$screamingeagle" requires explicit package name at Acme/PerlMonkify.pm line 22.
BEGIN not safe after errors--compilation aborted at Acme/PerlMonkify.pm line 25.Compilation failed in require.
BEGIN failed--compilation aborted.