use Net::ICQ;
$icq = Net::ICQ->new(-1,-1);
$uinevents = {
'password' => "testing",
};
$icq->add_handler('SRV_NEW_UIN', \&handle_new_user);
$icq->send_event('CMD_REG_NEW_USER',$uinevents);
$done = 0;
while (!$done) {
$icq->do_one_loop();
}
sub handle_new_user {
my ($icq,$event) = @_;
$newuin = $icq->{_uin};
print "New User registered with uin $newuin\n";
$done = 1;
}
diff