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