use strict;
use POSIX;

my $loc = setlocale(LC_ALL);
print "Locale = $loc\n";

setlocale(LC_ALL, "EN_en" );

my $loc = setlocale(LC_ALL);
print "Locale = $loc\n";


my $lconv = localeconv();

print "decimal_point     = ", $lconv->{decimal_point},   "\n";
print "thousands_sep     = ", $lconv->{thousands_sep},   "\n";
print "grouping          = ", $lconv->{grouping},        "\n";
print "int_curr_symbol   = ", $lconv->{int_curr_symbol}, "\n";
print "currency_symbol   = ", $lconv->{currency_symbol}, "\n";
print "mon_decimal_point = ", $lconv->{mon_decimal_point}, "\n";
print "mon_thousands_sep = ", $lconv->{mon_thousands_sep}, "\n";
print "mon_grouping      = ", $lconv->{mon_grouping},    "\n";
print "positive_sign     = ", $lconv->{positive_sign},   "\n";
print "negative_sign     = ", $lconv->{negative_sign},   "\n";
print "int_frac_digits   = ", $lconv->{int_frac_digits}, "\n";
print "frac_digits       = ", $lconv->{frac_digits},     "\n";
print "p_cs_precedes     = ", $lconv->{p_cs_precedes},   "\n";
print "p_sep_by_space    = ", $lconv->{p_sep_by_space},  "\n";
print "n_cs_precedes     = ", $lconv->{n_cs_precedes},   "\n";
print "n_sep_by_space    = ", $lconv->{n_sep_by_space},  "\n";
print "p_sign_posn       = ", $lconv->{p_sign_posn},     "\n";
print "n_sign_posn       = ", $lconv->{n_sign_posn},     "\n";