sub output { my $line = shift; my ($channel) = ( $event->to )[0]; $self->privmsg( $channel, "$line" ); }