Thanks for help. Here is how I got it:

#!/usr/bin/perl

use strict;
use warnings;
use Win32::OLE::NLS qw(GetLocaleInfo LOCALE_SYSTEM_DEFAULT LOCALE_SLIS
+T);

my $char = GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SLIST);
print "[$char]";
[download]