#!/usr/bin/perl -w

use locale;
use POSIX 'locale_h';

my %locale = (
    French  => "fr_FR.ISO_8859-1",
    English => "us-ascii"
);

setlocale(LC_TYPE, $locale{French}) or die "Invalid locale $locale{French}\n";