use utf8; // スクリプトの文字コードを指定(このスクリプトの保存時の文字コード) binmode STDOUT, ":encoding(eucjp)"; // 出力の文字コードを指定 use Path::Class; my $filename = 'hoge'; my $fh = file($filename)->open('<:encoding(shiftjis)'); # ファイルの文字コードを指定 flock $fh,1; while(<$fh>){ # 行毎の処理 } close $fh;</:encoding(shiftjis)');>