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

my $url = "url.here";
$mech->get( $url );


   $mech->submit_form(
        form_number => 2,
        fields      => {
            username    => 'name',
            passwrd    => 'pass',
        }
    );

my $mech2 = WWW::Mechanize->new();
$mech2->get( $url );
   $mech2->submit_form(
        form_number => 2,
        fields      => {
            username    => 'name',
            passwrd    => 'pass',
        }
    );

my $mech3 = WWW::Mechanize->new();
$mech3->get( $url );
   $mech3->submit_form(
        form_number => 2,
        fields      => {
            username    => 'name',
            passwrd    => 'pass',
        }
    );

print "done";