use WWW::Mechanize;

$mech = WWW::Mechanize->new();
$mech->cookie_jar(HTTP::Cookies->new());
$mech->get('http://mysite.com');
my @webforms = $mech->forms();
foreach my $form (@webforms)
{
   my @inputfields = $form->param;
   foreach my $inputfield (@inputfields)
   {
      if ($inputfield =~ /userID/)
      {
         $mech->set_fields($inputfield => "login");
         print "Setting userid\n";
      }
      if ($inputfield =~ /pass/)
      {
         $mech->set_fields($inputfield => "password");
         print "Setting password\n";
      }
      print $inputfield . "\n";
   }
}
$mech->click();
$statVal = $mech->status();
print $statVal . "\n";