use strict;
use warnings;

use Win32::Console::Ansi; # converts output for code page 850 to OEM c
+ode page

my $isRedirected = ! -t STDOUT;

my $Str = 'äöüÄÖÜß' . "\n"; # this string has default encoding iso-885
+9-1

# if STDOUT is redirected to a file, use unicode encoding, otherwise u
+se default
if ($isRedirected) {
    if (!defined binmode STDOUT, ':encoding(UTF-8)') {
        warn "binmode failed: $!\n";
    }
    utf8::encode($Str);
}
# output string with a hexdump
if (!print 'string: ', hd($Str), $Str){
    warn "print failed\n";
}
# With a redirected file I end up with a UTF-16 LE BOM encoded file wi
+th wrong content :-(

# for comparison, this works as expected (produces utf8 content)
open(my $fh, '>:encoding(UTF-8)', 'utf8_2') or die "can't open file fo
+r writing:$!\n";
print $fh $Str or warn "print to file failed\n";
close $fh or warn "close file failed\n";


# hexdump
sub hd
{
    my $input = shift;
    return join(' ', unpack('(H2)*', $input)), "\n";
}
[download]