my first irssi scrupt

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

use Irssi qw(command_bind signal_add);

$VERSION = '1.00';
%IRSSI = (
    authors	=> 'cvncpu',
    contact	=> 'sysop@cvncpu.net',
    name	=> 'l33t4lk',
    description	=> 'this should 3l33t ur txt',
    license	=> 'Public Domain',
    url		=> 'http://cvncpu.net/',
);

sub mf {
	my ($data, $server, $witem) = @_;
	if (!$server || !$server->{connected}) {
		Irssi::print("Not Connected");
		return;
	}
	if ($data) {
		$_ = "[-{ $data }-]";
		$witem->command("/SAY $_");
	}
}

command_bind leet => \&mf;