use WWW::Mechanize; my $mech = WWW::Mechanize->new(); $mech->agent_alias("Windows IE 6"); $mech->get($base); $mech->submit_form( with_fields => { login => $user, password => $pass, 'btn_login.x' => 66, 'btn_login.y' => 17, }, );