binmode(STDOUT, ":utf8");
my $teststring = qq{Ÿ};
print "$teststring\n";