use LWP::UserAgent;
 $ua = LWP::UserAgent->new;
for (1 .. 6 )
{
 my $req = HTTP::Request->new(POST => 'http://TestMachine/SomeForm.asp');
 $req->content_type('application/x-www-form-urlencoded');
 $req->content('onclick="NextTab()"');
}

 my $req = HTTP::Request->new(POST => 'http://TestMachine/SomeForm.asp');
 $req->content_type('application/x-www-form-urlencoded');
 $req->content('onclick="return submitMetaForm()"');
 
 my $res = $ua->request($req);
 print $res->as_string;