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

##</code><code>##

my $string = "\x{263a}\x{263a}\x{263a}";

{
	use bytes;
	syswrite(STDOUT, $string, length $string);
}

syswrite(STDOUT, "\n", 1);
syswrite(STDOUT, $string, length $string);