#! /usr/bin/perl

use strict;
use warnings;
use LWP::Simple;

my $url = 'http://user:pwd@intranet/seite.html';
my $content = get($url);