$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.