#!/usr/bin/perl

use warnings;
use strict;
use LWP::UserAgent;

$ENV{HTTPS_DEBUG} = 1;

my @requestHeaders = (
  'Content-type' => 'text/json',
  'username' => 'xxx',
  'password' => 'yyy'
);

my $url = "https://ipaddr:443/dir/dir";
my $ua = LWP::UserAgent->new;
$ua->default_header('Accept-Encoding' => scalar HTTP::Message::decodable());
$ua->add_handler("request_send",  sub { shift->dump; return });
$ua->add_handler("response_done", sub { shift->dump; return });
my $response = $ua->get($url, @requestHeaders);
die "Error $url\n".$response->status_line."\n" unless $response->is_success;
print "Success ".$response->content_type. " document!\n";