use strict; use warnings; use Locale::gettext; use POSIX; setlocale(LC_MESSAGES, "it_IT"); my $d = Locale::gettext->domain('license'); $d->dir('/home/sini/'); print $d->get("Hello world")."\n"; #### msgid "" msgstr "" "Project-Id-Version: PACKAGE VERSION\n" "PO-Revision-Date: 2010-05-11 15:37+0200\n" "Last-Translator: Paolo Sinigaglia \n" "Language-Team: Italian\n" "MIME-Version: 1.0\n" "Content-Type: text/plain; charset=ASCII\n" "Content-Transfer-Encoding: 8bit\n" "Plural-Forms: nplurals=2; plural=(n != 1);\n" msgid "Hello world" msgstr "Ciao!"