irc-test.p6

use v6;
my $chan = '#perl6';
await IO::Socket::Async.connect('irc.freenode.net',6667).then( -> $p {
    my $sock = $p.result;
    $sock.print("NICK P6\nUSER P6 Perl6 work :Perl6 Perl6\nJOIN $chan\n");
    my $timer = Promise.in(5).then({ now });
    react {
        whenever $timer -> $now {
            say "Now is $now\n";
            $sock.print: ":P6!P6\@work PRIVMSG $chan :Now is $now\n";
            $timer = Promise.in(5).then({ now });
        }
        whenever $sock.chars-supply() -> $v is copy {
            $v.say;
        }
    }
    say "################CLOSING CONNECTION###################";
    $sock.close;
});