#!/usr/bin/perl

use WWW::Mechanize; ## Automate Grabbing Webpages
use strict;

## What URL shall we retrieve?
my $url = "http://10.10.10.10/bdtconfig.shtml";
my $mech = WWW::Mechanize->new(autocheck => 1);
$mech->default_headers->authorization_basic("user", "pass");
$mech->get($url);
my $page = $mech->content;
$mech->dump_all(undef, 1);
#print $page;

my $resp2=$mech->submit_form(
          form_number => 1,
          fields      => { bdtminvolt => 49.0,
                           bdtmaxtime => 0.3,
                           rect_stby_volt => 45.0 ,},
);
print "Now clicking ...\n";
my $resp3=$mech->click_button(value => "Save'n Start");
#$mech->form_number(1);
#$mech->field('bdtminvolt',48.0);
#$mech->field('bdtmaxtime',0.2);
#$mech->field('rect_stby_volt',45.0);
#my $resp3=$mech->click_button(number => 1);
#print $resp3->content;

##</code><code>##

POST http://10.10.3.223/bdtcfg_gen.shtml [bdtForm]
  <NONAME>=Clear Alarm...        (button disabled)
  <NONAME>=Clear Results...      (button)
  low_volt=52.0                  (text)
  bdtminvolt=49.0                (text)
  bdtmaxtime=0.2                 (text)
  rect_stby_volt=45.0            (text)
  very_low_volt=48.0             (text)
  bdtcycle=13                    (text)
  <NONAME>=3                     (option)   [*3/Observation|4/Minor|5/Major|6/Cr
itical]
  <NONAME>=2                     (option)   [0/None|1/On Raise|*2/On R & C|3/On
Cease]
  <NONAME>=2                     (option)   [0/None|1/On Raise|*2/On R & C|3/On
Cease]
  <NONAME>=Save No Start         (submit)
  <NONAME>=Save'n Start          (submit)
  <NONAME>=Stop Test             (submit)
  <NONAME>=<UNDEF>               (reset)
  <NONAME>=Factory Default...    (button)
  bdt_event_id=0                 (hidden readonly)
  eid56=117                      (hidden readonly)

Now clicking ...