#!/usr/bin/perl
{
	package DINAgent;
	use strict;
	use warnings;
	use base 'LWP::UserAgent';
	sub get_basic_credentials {
		return ('admin','password');
	}
}

require 5.010_001;
use strict;
use warnings;
use HTTP::Request;
use Encode qw(encode_utf8);
use LWP::ConsoleLogger::Everywhere ();

my $ip = '192.168.54.24';
my $url = "http://".$ip."/restapi/relay/outlets/=4/state/";
my $header = [
	'X-CSRF' => 'x',
	'Accept' => 'application/json',
	'Content-Type' => 'application/x-www-form-urlencoded',
];
my $data = encode_utf8('value=true');
my $req = HTTP::Request->new('GET', $url, $header, $data);
my $ua = DINAgent->new;

my $res = $ua->request($req);