IRCの独り言を拾うときに使うと良いと思います。 package User::Twitter; use strict; use warnings; use base qw(Module); use Multicast; use Net::Twitter; sub message_arrived { my ($this,$msg,$sender) = @_; my @result = ($msg); # サーバーからのメッセージか? if ($sender->isa('IrcIO::Client')) { # PRIVMSGか? if ($msg->command eq 'PRIVMSG') { my $msg_prefix = substr($msg->param(1), 0, length($this->config->prefix)); my $msg_body = substr($m