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

$mech->credentials( 'members.easynews.com:80', 'EasyNews',
    'username' => 'password' );