#!/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";