use strict;
use warnings;

use WWW::Mechanize;


my $agent = WWW::Mechanize->new( autocheck => 1 );

$agent->credentials( 'www.somesite.com:80', 'somerealm', 
                     'user', 'password' );

$agent->get( 'http://www.somesite.com/index.html' );

print $agent->content();