% my $referral_custnum = $1;
% my $cust_main = qsearchs('cust_main', { custnum => $referral_custnum } );
% print '<FORM METHOD="GET">'.
% my $referral_custnum = $1;
% my $cust_main = qsearchs('cust_main', { custnum => $referral_custnum } );
% print '<FORM METHOD="GET">'.