or download this
$current_form = $mech->form_number(10);
print "Present value of $input_name: " . $mech->value('DMPName') . "\n
+";
...
No elements found for form number 10 at D:\....
Present value of DMPName: Current Name
Can't use an undefined value as a HASH reference at D:\...