my $yahoo = Net::YahooMessenger->new(hostname=>'cs54.msg.dcn.yahoo.com');