use WWW::Mechanize;

my $mech = WWW:Mechanize->new();
my $url = "http://www.example.com/cgi-bin/testcode.tcl"

$mech->get(url);
$result = $mech->submit_form(
form_number => 1,
fields =>
{
modem => '1122.3344.5566'
}
,button => 'submit'
);

#### up to this point everything works perfectly. 
#### $result->content gives me all of the data I would
#### normally see

$results2 = $mech->submit_form(
form_number => 2,
fields =>
{
modem => '1122.3344.5566'
ip_select => '1.2.3.4'
}
);

#### the submit button does not have a name on this form 
#### and if I read the docs correct the form will still
#### submit using submit()