% % my( $cust_main ) = @_; %