A better approach than attempting to determine language preference from geographical location would be to make use of the Accept-Language header field as defined for HTTP/1.1 in RFC 2616.

The module I18N::AcceptLanguage performs this task by matching language preference to available languages defined in this HTTP/1.1 header field.

From the documentation for this module:

use I18N::AcceptLanguage;

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

my $acceptor = I18N::AcceptLanguage->new;
my $language = $acceptor->accepts( $ENV{'HTTP_ACCEPT_LANGUAGES'}, $sup
+portedLanguages );
[download]

 

perl -le 'print+unpack("N",pack("B32","00000000000000000000000111110100"))'