Useful little perl functions for irssi scripting

sub me_action {
  my ($server, $target, $msg) = @_;
  $server->command("ACTION $target $msg");
}


sub say_msg {
  my ($server, $target, $msg) = @_;
  $server->command("msg $target $msg");
}