#!/usr/bin/perl
use strict;
use warnings;
# gettext laden.
# Das ist Bei Debian gleich dabei und nutzt die C-Lib gettext
use Locale::gettext;

# POSIX laden um "setlocale" nutzen zu lönnen
use POSIX;

# das Verzeichnis finden in dem das Script liegt
use FindBin '$Bin';

# keine Übersetzung vorläufig
setlocale(LC_MESSAGES,'C') or die( "Can't set LC_MESSAGES" );

# die Domein an ein Verzeichnis
# im Ordner des Scriptes binden
bindtextdomain("my_test","$Bin/translate");
# in diesem Scrit diese Domain verwenden
textdomain("my_test");


print gettext("Yo man")."\n";
for(0..9)
{
  printf gettext('ln: %02u')."\n",$_;
}