#!/usr/bin/perl -w
use strict;
use warnings;
use LWP::UserAgent;
my $netloc = "xxx.xx.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( "Authorization" => "Basic bGJLN0dLaGNmVTM2MkxNbjpzOUtKRXR0UVBHeGIyTkxkcEpMM3hHbmlLN0MwaUk=");
$ua->default_header( "Accept" => "*/*"  );
$ua->default_header( "Content-Type" => "application/x-www-form-urlencoded");
$ua->credentials( $netloc, $realm, $user, $pass);
$ua->ssl_opts( verify_hostname => 0, SSL_verify_mode => 0x00);
my $url = "https://".$netloc."/api/v2/access/token";
my $resp = $ua->post($url, Content => ['grant_type' =>  "client_credentials"]);
if ($resp->is_success) {
    my $output = $resp->decoded_content;
    print $output."\n";
}
else {
    print $resp->as_string();
}