<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!@PERL@
# Example for use of GNU gettext.
# Copyright (C) 2003 Free Software Foundation, Inc.
# This file is in the public domain.
#
# Source code of the Perl program, using the Locale::TextDomain API.

use Locale::TextDomain ("hello-perl" =&gt; "@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 =&gt; getpid());
print "\n";
</pre></body></html>