Select Code to Download

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);