use Locale::Msgcat;
my $cat = Locale::Msgcat->new;
$cat->catopen("nls/$language.cat", 1); # it's like a 2D array
sub _ { $cat->catgets(7, @_) } # 7 is the set_id for index.html
print _(1, "Autrijus.House");  # 1 is the msg_id for this text

Example 3: Sample usage of Locale::Msgcat.