#!/usr/bin/perl

use strict;
use warnings;
use Win32::OLE::NLS qw(GetLocaleInfo LOCALE_SYSTEM_DEFAULT LOCALE_SLIST);

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