Help for use Net::YahooMessenger in perl

Hi
I wrote a script for connect and send a message to a id in YahooMessenger with perl.
But this script is not working correctly.

Script:

#!/usr/bin/perl
use Net::YahooMessenger;
use strict;

        my $yahoo = Net::YahooMessenger->new(
                id       => 'id',
                password => 'password',
                hostname      => 'scsc.msg.yahoo.com',
                port => '5050',
        );
        $yahoo->login or die "Can't login Yahoo!Messenger";;
	$yahoo->send('id2', 'Hello World!');

Code (markup):

Thanks for help

 

what error does it give you?

 

Nothing
and my icon's id is off

 

It looks like the development of that module has been discontinued / doesn't work properly with Yahoo protocol anymore.

Net::YahooMessanger

Try looking for an alternative here (CPAN Search)