nag-bot.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");
    react {
        whenever $sock.chars-supply() -> $v is copy {
            $v.say;
            if ( $v ~~ /':End of NAMES list'/ ) {
                Supply.interval(5).tap({
                    $sock.print: ":P6!P6\@work PRIVMSG $chan :Now is {now}\n";
                    say now;
                });
            }
        }
    }
    say "################CLOSING CONNECTION###################";
    $sock.close;
});