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

use Irssi;
$VERSION = '0.1';
%IRSSI = (
          authors     => '',
          contact     => '',
          name        => '',
          description => '',
          license     => ''
);

sub my_sub{
.......
}
Irssi::command_bind('commande' => \&my_sub);