if ($what eq "W")
        {
                $sth = $dbh->prepare( sprintf "select * from %s where %s = %s",$dbh->quote_identifier($table),$dbh->quote_identifier($col),$sel);
		.....and so on
        }
}


##</code><code>##


XZ14B:TEST:TEST:TEST:TEST
XX145:TEST:TEST:TEST:TEST
11111:TEST:TEST:TEST:TEST