#!/usr/bin/perl -w

use strict;
use warnings;
use JSON;
use LWP::UserAgent;
require HTTP::Cookies;
my $netloc = "xxx.xx.xx.xx:80";
my $realm = "Realm";
my $user = "username";
my $pass = "password";
my $auth_token = "token code";
my $ua = new LWP::UserAgent;
$ua->agent('Mozilla/5.0');
my $cookie_jar = HTTP::Cookies->new( file => 'cookies_lwp.txt', autosave => 1, ignore_discard => 1 ); 
$ua->cookie_jar($cookie_jar);
$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME}=0;
$ua->default_header( "Authorization" => "Bearer $auth_token");
$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 $request = new HTTP::Request('GET','https://xxx.xx.xx.xx/api/v2/devices/00:04:56:22:51:32/performance/?start_time=2022-02-15T10:00:00&stop_time=2022-02-16T10:00:00');

my $response = $ua->request($request);


if ($response->is_success) {
    my $output = $response->decoded_content;
	#print $output."\n";
	
#Code from perlmonks		
use JSON::PP;
my $data = join '', $output;
my $hashref = JSON::PP->new->decode($data);
use Data::Dump 'dd'; dd $hashref;

}
else {
    print STDERR $response->status_line, "\n";
}