Select Code to Download

    $irc->yield(join => $msg_channel);
    $irc->yield(privmsg => $msg_channel, $message);
    $irc->yield(part => $msg_channel);

my @channels_to_notify = get_unused_channels();
my @joined_channels;
...
    my ($name) = @_;
    @joined_channels = grep { $_ ne $name } @joined_channels;
};