my $bytes_written = syswrite($self->socket, $data, length $data);