Select Code to Download

#!/usr/bin/perl

...
        $irc->yield(privmsg => $channel, "I am online and responding t
+o commands");
    }
}