use POSIX qw( localeconv );

$lconv = localeconv();
printf  "%20s : %s\n", $_, $lconv->{ $_ } for keys %{ $lconv };

__END__
   mon_thousands_sep : ,
       n_cs_precedes : 1
        mon_grouping : ♥
       negative_sign : -
   mon_decimal_point : .
     int_curr_symbol : USD
       decimal_point : .
         n_sign_posn : 0
      p_sep_by_space : 0
     currency_symbol : $
         frac_digits : 2
     int_frac_digits : 2
      n_sep_by_space : 0
       p_cs_precedes : 1
         p_sign_posn : 3