# five UTF smiley faces (three bytes long each):
my $string = "\x{263a}\x{263a}\x{263a}\x{263a}\x{263a}";
my $bytes_written = syswrite($socket, $string, length $string);

##</code><code>##

# five UTF smiley faces (three bytes long each):
my $string = "\x{263a}\x{263a}\x{263a}\x{263a}\x{263a}";
my $bytes_written = syswrite($socket, $string, size_in_bytes($string));