#!/usr/bin/perl
  
use LWP;
use HTTP::Headers;
$myurl = "https://www.somewhereoutthereusinghttps.com/blah";
$h = new HTTP::Headers(Referer => $myurl);
  
  my $ua = LWP::UserAgent->new;

  my $req = HTTP::Request->new(GET, $myurl, $h);
$req->authorization_basic('what', 'password');

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

  print $response->headers_as_string;
 print "\n";
   print $response->content;