Perlでsetlocale

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;