#!/usr/bin/perl -w -I/usr/sausalito/perl -I.
# $Id: 10select_french,v 1.5 2001/03/05 21:41:28 will Exp $
# Sets locale auto-negotiation order

use POSIX;
use I18n;

my $ret = I18n::i18n_setSystemLocale('fr');
exit $ret;

