use Net::IRC;

$irc = new Net::IRC;
$conn = $irc->newconn(  Nick    => 'BotRobotnnic',
                        Server  => 'irc.quakenet.org',
                        Port    =>  6667,
                        Ircname => 'Bot Robotnic');

$conn->add_global_handler('376', \&on_connect);
$conn->add_handler('msg', \&on_msg);                

$irc->start;


sub on_connect {
        my $self = shift;
        $self->join("#test");
        $self->privmsg("#test", "Im boti");

} 

sub on_msg {
        my $self = shift;
        $self->privmsg("#test", "$WHAT DID HE WRITE");

} 

##</code><code>##

$conn->add_handler('msg', \&on_msg);