sub _execute_command
{
    my $self = shift;
    my $command = shift;
    my $sql = shift;
    my $mysql = $self->{socket};

    my $message = pack('V', length($sql) + 1). $command. $sql;
#293:
    $mysql->send($message, 0);

    $self->_dump_packet($message) if Net::MySQL->debug;