ファイル読み込み Path::Class
ファイルの内容をすべて読み込み変数に格納する
use Path::Class qw/file/;
my $contents = file('/homo/taro/foo.txt')->slurp(iomode => '<:encoding(euc-jp)');
use Path::Class qw/file/;
my $contents = file('/homo/taro/foo.txt')->slurp(iomode => '<:encoding(euc-jp)');