my $input_name = 'DMPName';
my $web_url = 'http://xxx.xxx.xx.xx/config.asp';
my $mech = WWW::Mechanize::Firefox->new(activate => 0,
                                          autoclose => 1,
                                          autodie =>0);
$mech->get($web_url, no_cache => 1);
$current_form = $mech->form_number(1);

print "Present value of $input_name: " . $mech->value($input_name) . "\n";