文字コード関連

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;