Perl の locale 設定 - WebService::Blog->new( user => ’hide_o_55’ ) - http://d.hatena.ne.jp/hide_o_55/20111125/1322223051
http://perldoc.perl.org/POSIX.html
起動時にsetlocaleが実行される。
スクリプト中で実行するなら
use POSIX qw(setlocale LC_ALL);
setlocale(C_ALL,"");
printf "%d\n", 123;