#!/usr/bin/perl -w
use strict;
use warnings;
use LWP::UserAgent;
my $netloc = "xxx.xx.xx";
my $realm = "realm";
my $user = "usercode";
my $pass = "passcode";
my $ua = LWP::UserAgent->new();
$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME}=0;
$ua->default_header( "Accept" => "application/json"  );
$ua->default_header( "Content-Type" => "application/json");
$ua->credentials( $netloc, $realm, $user, $pass);
$ua->ssl_opts( verify_hostname => 0, SSL_verify_mode => 0x00);
my $query = "https://".$netloc."/api/v2/access/token";
my $req = HTTP::Request->new( GET => $query);
my $resp = $ua->request($req);
if ($resp->is_success) {
    my $output = $resp->decoded_content;
	print $output."\n";
}
else {
    print STDERR $resp->status_line, "\n";
}