#!/usr/bin/perl -T
sub lang_set{
  my $lang_opt=$_[0];
  if ( "$lang_opt" eq "" ){
    # l10n
    print "Language | y| 語言 ?\n".
          "[0]: English\n".
          "[1]: Chinese Traditional (Big5) - Taiwan |  (jX) - xW\n".
          "[2]: Chinese Traditional (UTF-8, Unicode) - Taiwan | 中文 (萬國標準碼) - 台灣\n".
          "[0] ";
    chomp($language=<STDIN>);
  } else {
    $language=$lang_opt;
  }
  if ($language eq "1"){
    $language="tw.BIG5";
  } elsif ($language eq "2"){
    $language="tw.UTF-8";
  } else {
    $language="en";
  }
  return $language;
} # end of lang

return 1;
