#!/usr/bin/perl -w

	use Net::YMSG;
	use strict;
	
	my $yahoo = Net::YMSG->new(
		pre_login_url => 'http://edit.my.yahoo.co.in/config/',
		hostname      => 'cs.yahoo.co.in',
	);
	$yahoo->id('someuser');
	$yahoo->password('password');
	$yahoo->login or die "Can't login Yahoo!Messenger";
	
	$yahoo->send('recipient_yahoo_id', 'hi there!');