#!/usr/bin/perl

use LWP::UserAgent;
use Crypt::SSLeay;

$ua = LWP::UserAgent->new;
$req = HTTP::Request->new(GET => 'https://192.168.1.1/laber.html');
$req->authorization_basic('login-name', 'geheim123');
$result = $ua->request($req);

# check the outcome

if ($result->is_success) 
{
 $x = $result->decoded_content;
 print $x;
}
else 
{
 print "Error: " . $result->status_line . "\n";
}