if ($clnm ne ""){
        $cnt = @parts = split(/\,/, $clnm);
       # $clnm = "'";
        $WHERE = $WHERE ." AND (";
        for ($i = 0; $i < $cnt; $i++) {
             $WHERE = $WHERE . "m.CLNAME LIKE '$parts[$i]%' ";
             ($WHERE = $WHERE .  " OR ") if ($i < $cnt - 1);
        }
       $WHERE = $WHERE . ")";

}