my $agent = WWW::Mechanize->new();
$agent->credentials($username, $password);