In the update form, change the name in the hidden input field to empid.

<input type="hidden" name="empid" value="$hr->{'EmployeeID'}"/>
[download]

otherwise the validation here will prevent the update

if ( ($action eq "UPDATE") && ($empid =~ /\d+/)) {
[download]

poj