Help for this page
<input type="hidden" name="empid" value="$hr->{'EmployeeID'}"/>
if ( ($action eq "UPDATE") && ($empid =~ /\d+/)) {