use lib qw(/usr/share/perl5/Debconf);
use strict;
use locale;
use POSIX qw(locale_h);
use Locale::TextDomain;
use Gettext;

my $gt = new Gettext;