use LWP::Simple;
use LWP::UserAgent;
use Data::Dumper;

my $URL = 'https://calendar.host.com';

my $ua = LWP::UserAgent->new( ); 

$ua->credentials('http://host.com',
                 '',
                 'user' => 'password');

my $req = new HTTP::Request GET => $URL;

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

print Dumper($res);