#! /usr/bin/env perl
use REST::Client;
use MIME::Base64;

my $username = 'me';
my $password = 'me!!';
my $headers = {Accept => 'application/xml', Authorization => 'Basic ' . encode_base64($username . ':' . $password)};
my $client = REST::Client->new();

$client->getUseragent->ssl_opts(verify_hostname => 0);
$client->getUseragent->ssl_opts(SSL_verify_mode => SSL_VERIFY_NONE);
$client->getUseragent->no_proxy('server_ip_string', 'server_ip_string');

$client->GET("https://server_ip_string:port/upm-server/nbi/organization",
             $headers
);

my $response = $client->responseContent();
print $response;