#!/usr/bin/perl -w
#
# $Id:$
#
use POSIX; 		# setlocale
use Cwd;		# getcwd
use Locale::gettext;

#setlocale(LC_MESSAGES,"deutsch");

bindtextdomain("sample", getcwd() . "/locale");
textdomain("sample");

print gettext("Welcome to my program"),".\n";
print gettext("Help"),"!\n";

#eof
