use Win32::OLE::NLS;
$LCID = GetSystemDefaultLCID();
for my $const ( 0..88 ) {
    print "Const val $const\t", GetLocaleInfo($LCID, $const ), "\n";
}
__DATA__
Const val 0	
Const val 1	0409
Const val 2	English (United States)
Const val 3	ENU
Const val 4	English
Const val 5	1
Const val 6	United States
Const val 7	USA
Const val 8	United States
Const val 9	0409
[snip]
Const val 20	$
Const val 21	USD
[snip]
Const val 31	M/d/yyyy
[yada yada]