## LWP!
use LWP;
use strict;

my $username = 'username';
my $password = 'password';
my $url = 'http://server:49282/subpage/nav_home.shtml';

my $browser = LWP::UserAgent->new('Mozilla');
$browser->credentials("server:49282","Digest realm",$username=>$password);
my $response=$browser->get($url);

print $response->content();