#!/usr/bin/perl
use Modern::Perl '2015';
use Encode qw(decode encode);

my $encoding = $^O eq 'MSWin32' ? 'cp1252' : 'utf8';
binmode(STDOUT, ":encoding($encoding)" );
binmode(STDERR, ":encoding($encoding)" );
binmode(STDIN,  ":encoding($encoding)" );

my $testtext = 'öäüÖÄÜ߀';
my $data2 = decode "$encoding", $testtext;
open my $fh, '>', "test.txt" or die $!;
say $fh $data2;
close($fh);
say "\nData2: > $data2 <\n";