Send a single ICQ message

[Eric S Ma]

I need to send single messages to another ICQ client. There is no need
to get any response back from the client. I tried Net::ICQ but to no
avail. My code is as follows:

use Net::ICQ;

my $icq = Net::ICQ->new(MYUSERID, PASSWORD, "login.icq.com", 5190);
$icq->connect();
die "Unable to connect" if ! $icq->connected();

my $params = { 'type' => 1,
'text' => 'Hello world',
'receiver_uin' => HISUSERID
};
$icq->send_event('CMD_SEND_MESSAGE', $params);

$icq->start();

Any help is appreciated.

Eric --