#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;


my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => 'http://someip:port/');
$req->authorization_basic('Username', 'password');
print $ua->request($req)->as_string;