$connection = new Net::Jabber::Client(); $connection->SetCallBacks(message=>\&messageCB, presence=>\&presenceCB); my $status = $connection->Connect(hostname=>$server); my @result = $connection->AuthSend(username=>$uname, password=>$pass, resource=>$resource);
Example 3: Jabber and Perl. Connect and authenticate.