use Module::Name;
my $c = Module::Name->new;
print $c->LOCALE_LANG_ALPHA_2;