Perl code for Number to Text

I need a short perl code for my invoice printing software. This code takes the number as input, print out the text equivalent of the number. eg. input: 1.125 --> output: one thousand on hundred twenty five. Working code for en is attached. This needs to be adapted to Turkish number texts. Base number texts for tr are given in code-en.pm. The only differences: en: one thousand --> tr: thousand (no one) en: one hundred --> tr:hundred (no one)