use Net::ICQ;

# Client erstellen
$icq = Net::ICQ->new($uin, $password);
# mit Server verbinden
$icq->connect();

# das brauchst du nicht:
$icq->add_handler('SRV_SYS_DELIVERED_MESS', \&on_msg);

# jetzt verschickst du 'Hello World' an UIN 1234
$params = {
  'type'         => 1,
  'text'         => 'Hello world',
  'receiver_uin' => 1234
};
$icq->send_event('CMD_SEND_MESSAGE', $params);

# Mit dem Server kommunizieren
$icq->start();