telnetでしゃべらナイトってことで、

telnet hostname 6667

で会話をしてみた。ついでにIO::Allでもやってみた。

my $io = io("192.168.xxx.xxx:6667");
$io->print("NICK test\n");
$io->print("USER test 192.168.xxx.xxx 192.168.xxx.xxx test\n");
$io->print("JOIN #info\n");
$io->print("PRIVMSG #info : hello irc!\n");
$io->print("QUIT\n");

ログインして一言なんか申して去っていく感じのクライアント