Help for this page
my $bytes_written = syswrite($self->socket, $data, length $data);
my $string = "\x{263a}\x{263a}\x{263a}"; ... syswrite(STDOUT, "\n", 1); syswrite(STDOUT, $string, length $string);