Help for this page
if ( ($action eq "UPDATE") && ($custid =~ /\d+/)) {
CustomerID ... BLAUS BLONP BOLID