Select Code to Download

use Encode;
my $string = 'é ç î ù';
$string = Encode::encode('cp437', $string);
print $string;