#!/usr/bin/perl

use v5.14;
use warnings;

use Future::AsyncAwait 0.47;

use IO::Async::Loop;
use Net::Async::IRC;

my $loop = IO::Async::Loop->new;

my $irc = Net::Async::IRC->new(
   on_message_text => sub {
      my ( $self, $message, $hints ) = @_;

      print "$hints->{prefix_name} says: $hints->{text}\n";
   },
);

$loop->add( $irc );

await $irc->login(
   nick => "MyName",
   host => "irc.example.org",
);

await $irc->do_PRIVMSG( target => "YourName", text => "Hello world!" );

$loop->run;