package MyApp::L10N;
use base 'Locale::Maketext';

package MyApp::L10N::de;
use base 'MyApp::L10N';
our %Lexicon = (
    "[quant,_1,camel was,camels were] released." =>
    "[quant,_1,Kamel wurde,Kamele wurden] freigegeben.",
);

package main;
my $lh = MyApp::L10N->get_handle('de');
print $lh->maketext("[quant,_1,camel was,camels were] released.", 5);

Example 6: A Locale::Maketext lexicon and its usage.