#!/usr/local/bin/perl
use strict;
use Hello::Locale;
use Data::Dumper;

my $filename = shift;

my $lh = Hello::Locale->get_handle("ru","KOI8-R");
$lh->load( Messages => $filename);

no strict 'refs';
print Dumper( $lh );
print "Lexicon loaded\n" if ${ref($lh)."\::LEXICON_LOADED"} ;
print Dumper( %{ref($lh)."\::Lexicon" } );