#! perl -slw
use strict;

my $str = "abc123äöüß";

print $str;

##</code><code>##

use Win32::Console;
...
Win32::Console::OutputCP( 65000 );
...

##</code><code>##

C:\test>\perl5.18\perl\bin\perl.exe 1140216.pl
abc123äöüß

C:\test>\Perl5.20\bin\perl.exe 1140216.pl
abc123äöüß

C:\test>\Perl22\bin\perl.exe 1140216.pl
abc123äöüß