Select Code to Download

=39=          $_[KERNEL]->yield("heartbeat"); # start heartbeat

my %FOLLOWS = (
   ACCESS => "/var/log/messages",
...
        $irc->yield(privmsg => $channel, "I am online and responding t
+o commands");
    }
}

#!/usr/bin/perl
use 5.010;
...
        $irc->yield(privmsg => $channel, "I am online and responding t
+o commands");
    }
}