use vars qw($VERSION %IRSSI);
use Irssi;
use strict;
%IRSSI = ();

sub foobar {

	my ($data, $server, $witem) = @_;
	if ($witem) {
		$witem->command("MSG "."#tonkman.org "."Hello world");
	}
}

Irssi::command_bind('%foo', 'foobar');