use utf8;
use Encode; # explicitly use for its binmodes
use Encode::Locale;
binmode STDOUT, ":encoding(console_out)";
my $str = "abc123äöüß";
print $str;