## WWW::Mechanize
#!/usr/bin/perl

use WWW::Mechanize;

my $username = 'username';
my $password = 'password';
my $url = 'http://server:49282/subpage/nav_home.shtml';
# Create a new instance of WWW::Mechanize
my $mechanize = WWW::Mechanize->new(autocheck => 1);

# Supply the necessary credentials
$mechanize->credentials("server:49282","Digest realm", $username=>$password);
$mechanize->get($url);
# Retrieve the desired page
print $mechanize->content();