This is a Perl script that connects to a IRC channel and waits for commands.

Commands can be:

portscan (scans a host for open ports)

tcpflood (try to keep 1000 TCP connections open to a host for a specified period of time);

udpflood (send UDP packets to all ports on a host with an payload of a specified number of 'A' characters for a specified period of time);

httpflood( send HTTP requests to a host for specified period of time [with HTTP Keep-Alive header]);

shell (execute arbitrary commands on the host);

google (use google to find other hosts to infect [targets modules.php]);

version (returns bot version)

All commands send status back via IRC.

There are several brazilian portuguese strings and comments, although is not clear if the author is brazilian.

Interesting stuff.