Select Code to Download

use utf8;
use Encode 'encode';

...

print encode cp850 => $str;
system encode cp1252 => $str;