Interface with Yahoo /MSN messenger using Perl

[AD]

Hi,

I tried following code for Yahoo Messenger

use Net::YMSG;
use strict;

my $yahoo = Net::YMSG->new(
pre_login_url => 'http://edit.my.yahoo.co.in/config/',
hostname => 'scs.msg.yahoo.com',
);
$yahoo->id('adixit76');
$yahoo->password('musafir');
$yahoo->login or die "Can't login Yahoo!Messenger";

$yahoo->send('recipient_yahoo_id', 'Namaste!');


Everytime it says "Can't login Yahoo!Messenger"

Can anybody give me some idea?