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