#!/usr/bin/perl

use strict;
use Net::XMPP;
use Data::Dumper;

my $con = Net::XMPP::Client->new( debuglevel=>1,);
my $host = '<host name here>';
my $user = '<my username>';
my $pass = '<my password>';

my $status = $con->Connect(
    hostname =>  $host,
    connectiontype => 'tcpip',
    tls => 1
);

my @result = $con->AuthSend(
    hostname =>  $host,
    username =>  $user,
    password =>  $pass,
);


print Dumper \@result;