#!perl -w

use strict;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST GET);


my $agent = new LWP::UserAgent;
   $agent->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)');

my $url = 'http://gaga:er@192.168.10.1/';
my $Anfrage = GET $url;
my $Antwort = $agent->request($Anfrage);
print my $html = $Antwort->content();