hello.pl   [plain text]

#!@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.

use Locale::Messages;
use POSIX qw(getpid);

textdomain "hello-perl";
bindtextdomain "hello-perl", "@localedir@";

print _"Hello, world!";
print "\n";
printf _"This program is running as process number %d.", getpid();
print "\n";