use strict; 
    use LWP::UserAgent;

    my $url      = 'https://intranet.com/some/page.html';
    my $browser  = LWP::UserAgent->new();
    $browser->protocols_allowed(["http", "https"]);

    unless ($browser->is_protocol_supported("https")) {
            die "Cannot use https:// URLs\n";
    }

    $browser->credentials("intranet.com:443", "My Realm",
                          "johndoe", "0bScUr3d");

    my $response = $browser->get($url);