use I18N::AcceptLanguage;

my $supportedLanguages = [( 'en-us', 'fr' )];

my $acceptor = I18N::AcceptLanguage->new;
my $language = $acceptor->accepts( $ENV{'HTTP_ACCEPT_LANGUAGES'}, $supportedLanguages );