for my $b(@binds) {
        $b=$sth->{Database}->quote($b) 
           unless DBI::looks_like_number($b);
    };
    $stmt =~ s/\?/shift @binds/eg;