sub on_public {
	my ($kernel, $who, $where, $msg) = @_[KERNEL, ARG0, ARG1, ARG2];
	my $nick    = (split /!/, $who)[0];
	my $channel = $where->[0];
	my $ts      = scalar localtime;
	print " [$ts] <$nick:$channel> $msg\n";
	if ($msg =~ /^!test (.+)/) {
		$irc->yield(privmsg => CHANNEL, "123");
	}
}