my $st = sprintf "update upps_ret_q set state=\"%s\", message=%s where seq_n=%5d",$state,$dbh->quote($msg),int($key);