mirror of
https://github.com/Stichting-MINIX-Research-Foundation/netbsd.git
synced 2025-09-12 00:24:52 -04:00
17 lines
493 B
Perl
17 lines
493 B
Perl
#!@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" => "@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";
|