my $x=WWW::Mechanize->new();
$x->get("www.somesite.com");
$x->field("user_field","username");
$x->password("password_field","password");
$x->click();