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