use LWP::UserAgent;
use HTTP::Request::Common;

my ($url, $usr, $pwd, $endpoint, $realm) = @_;
my $ua = LWP::UserAgent -> new;
	
$ua -> credentials($endpoint, $realm, $usr, $pwd);
my $response = $ua -> request(GET $url) -> as_string;