Scritp xchat en perl

Bonjour, j'essaie de coder des scripts xchat en perl; voilà ce que ça donne :

#!/usr/bin/perl -w
use strict;
IRC::register("test", "0.1", "", "" );
IRC::add_command_handler("test", "tes" );

sub test()
{
IRC::print ("test !!!!");
}

Malheureusement quand je tape /load ~/Bin/test.pl
ça me dit :
Error loading '/home/nimag/Bin/test.pl':
Undefined subroutine &IRC::register called at (eval 26) line 3.

Je ne sais pas quoi faire car je ne vois pas d'où viens mon erreur.

Merci d'avance