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";

##</code><code>##

4 elements found for form number 1 at .....
No elements found for input with name 'DMPName' at ....
Present value of DMPName:

##</code><code>##

$current_form = $mech->form_number(10);

##</code><code>##

No elements found for form number 10 at ...
Present value of DMPName: Current Name