i need help in translating the language

[uva]

dear monks, i have doubt in the following code,

use Unicode::Indic::Telugu;
use strict;
my $lang = Unicode::Indic::Telugu->new ()  or print "noti ";
my $text = "Sriiraama jayaraama jaya jaya raama";
my $out = $lang-> translate($text) or print "not ";
print $out;

if i execute that program,it is not printing the actual language, it is printing as

Wide character in print at telu.pl line 7
Ó░ÂÓ▒ìÓ░░Ó▒ÇÓ░░Ó&#9
+617;¥Ó░« Ó░£Ó░»Ó░░Ó░¥Ó
+░« Ó░£Ó░» Ó░£Ó░» Ó░&#96
+17;Ó░¥Ó░«ok 3

what it is printing , where is my actual words??

[Anonymous Monk]

You need to mark your output filehandle for unicode. Since you're printing to standard out, binmode STDOUT, ':utf8'; does the trick.

You need to have some Indic fonts, else you just see replacement characters, for example boxes or question marks. sudo apt-get install indic-fonts

This is what I see. screenshot on imageshack.us

Next time on perlmonks, mind that we're an international community and as such speak standard English here. -> "Question" vs "Doubt"

[radiantmatrix]

The output you are seeing is indicative of printing Unicode data to a terminal that doesn't support Unicode (or hasn't been told to expect it). Try printing to a file handle opened with the utf-8 encoding and then read it with a Unicode-aware editor.

[uva]

how to open a file handle with the utf-8 encoding.

[Anonymous Monk]

perldoc -f open