use v5.14;
use warnings;

use Encode qw( decode );
use Win32  qw( );

my $enc = -t STDOUT ? "cp" . Win32::GetConsoleOutputCP() : "UTF-8";

binmode( STDOUT, ":encoding($enc)" );

my $str = decode( "cp1252", "äöüÄÖÜß" );
#warn sprintf "%vX", $str;  # E4.F6.FC.C4.D6.DC.DF

say $str;