use utf8;
use Encode 'encode';
my $str = "abc123äöüß";
print encode cp850 => $str;

##</code><code>##

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