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;