#!/usr/bin/perl -w
use strict;
use utf8;

binmode(STDOUT,':encoding(UTF-8)');
my $string= "\x{126}is. \x{166}good";
#my $string = pack('U', 294) . "is. " . pack('U', 358) . " good";

print "Sent = $string\n";

system ("Example.exe \"$string\"");