#!@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";
Generated by dwww version 1.15 on Wed Jun 26 04:42:22 CEST 2024.