note
Khen1950fx
Here's a simpler version of [choroba]'s idea:
<c>
#!/usr/bin/perl -l
use strict;
use warnings;
open my $in, "-|:encoding(UTF-8)", "echo \xc3\xb6" or die $!;
my $line = <$in>;
chomp($line);
open STDOUT, ">-" or die $!;
binmode STDOUT, ":encoding(UTF-8)";
print STDOUT "I read a line, that is ", length($line), " chars long.\n";
print STDOUT "That line in ascii is: $line";
close($in);
close(STDOUT);
exit 0;
</c>
Updated: Fixed mistake at line 11. Thanks, [choroba]!
1120759
1120759