use Encode;

sub encprint {
    foreach (@_) {
        my $enc = encode ("cp850", $_);
        CORE::print $enc;
    }
}

my $string = "Ähndlich wärdn doiße string&´ß äch öngezeicht nö ?";

encprint "${string}\n";

# DOS-Alt: cp437  (fuer deutschsprachiges DOS)
# DOS-Neu: cp850
# Windows: cp1252 (was annaehernd ISO Latin1 entspricht)