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


$mech->submit_form(
        form_number => 3,
        fields      => {
            username    => 'mungo',
            password    => 'lost-and-alone',
        }
    );