sample using AnyEvent::IRC::Client

gistfile1.pl

use 5.12.0;
use warnings;
use utf8;
use AnyEvent;
use AnyEvent::IRC::Client;
use Encode;
 
my @server_info = (
    'irc.example.com',
    6667,
    {
        nick     => 'foobar',
        real     => 'foobar',
        password => '********',
    },
);
my @channels = (
    '#meganelab',
);
 
my $cv = AnyEvent->condvar;
my $irc = AnyEvent::IRC::Client->new;
 
$irc->reg_cb(
    registered => sub {
        warn 'registered';
    },
    disconnect => sub {
        warn 'disconnected';
    },
    publicmsg => sub {
        my ($irc, $channel, $ircmsg) = @_;
        my (undef, $who) = $irc->split_nick_mode($ircmsg->{prefix});
        my $msg = decode_utf8( $ircmsg->{params}[1] // '' );
        sleep 1;
        $irc->send_chan( $channel, 'NOTICE', $channel, encode_utf8("Re: $msg") );
    },
);
 
$irc->connect(@server_info);
for (@channels) {
    $irc->send_srv('JOIN', $_);
}
$cv->recv;
$irc->disconnect;