if (exists $ENV{LANG}) {
  $ENV{LANG} =~ m/^(..)/;
  $preferences{'language'} = lc($1);
}