my $sql = 'update upps_ret_q set state=?, message=? where seq_n=?';
my $sth = $dbh->prepare( $sql );
$sth->execute( $state, $msg, $key );