sepen

#!/usr/bin/perl -w

use Net::IRC;

$irc = new Net::IRC;

$conn = $irc->newconn(
        Nick     => 'botijo_',
        Server   => 'mikeux.dyndns.org',
        Port     =>  6667,
        Username => 'botijo-0.1');
$irc->start;

# What to do when the bot successfully connects
sub on_connect {
        my $self = shift;
        $self->join("#test");
        $self->privmsg("#test", "Hi!");
}

# End of File