%$cgi->param('custnum') =~ /^(\d*)$/ or die "Illegal custnum!";
%my $custnum = $1;
%my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } )
%$cgi->param('custnum') =~ /^(\d*)$/ or die "Illegal custnum!";
%my $custnum = $1;
%my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } )