2 # Example for use of GNU gettext.
3 # This file is in the public domain.
5 # Source code of the Perl program, using the Locale::TextDomain API.
7 use Locale
::TextDomain
("hello-perl" => "@localedir@");
10 binmode STDOUT
, ':raw'; # Needed to make it work in UTF-8 locales in Perl-5.8.
12 print __
"Hello, world!";
14 print __x
("This program is running as process number {pid}.", pid
=> getpid
());