my $username = "someuser";
my $password = "password";
my $url = 'http://sub.example.com:49282/navigation/nav_home.shtml';

use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$req = HTTP::Request->new(GET => $url);
$req->authorization_basic($username,$password);
print $ua->request($req)->as_string;