#!/usr/bin/perl

use strict;
use warnings;

use Irc;

my $session = Irc->new("localhost:6667");
$session->connect();
$session->send("nick whatever");
$session->read();
$session->send("user whatever ignored v1.0 :perl hack");
$session->read();
$session->send("join #room1");
# now keep on reading until receiving the special logoff code ;)
$session->read();
$session->disconnect();