mingw/share/doc/gettext/examples/hello-perl/hello-2.pl.in

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