#!/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;