#!/usr/bin/perl -w

use Net::IRC;
use strict;

# maak een nieuw IRC object
my $irc = new Net::IRC;

my $conn = $irc->newconn(
	Server 		=> '127.0.0.1',	
	Port		=> '6667', 
	Nick		=> 'TestBot',
	Ircname		=> 'Hallo!',
	Username	=> 'hallo'
);

sub on_connect {
     my $self = shift;

     print "Joining #test channel";
     $self->join("#test");
     $self->privmsg("#test", "Hi there.");
}

$irc->start();