#!/usr/bin/perl

use strict;
use warnings;
use locale;
use POSIX 'locale_h';

setlocale(LC_COLLATE, 'fr_CH');
setlocale(LC_NUMERIC, 'en_US');
setlocale(LC_MONETARY, 'fr_CH');
setlocale(LC_TIME, 'fr_FR');

print "The monetary locale is ", setlocale(LC_MONETARY), "\n";

print "All locale settings: ", setlocale(LC_ALL), "\n";