ファイルの内容を読み込む

 use Path::Class qw/file/;
 my $contents = file('/homo/taro/foo.txt')->slurp(iomode => '<:encoding(euc-jp)');

http://search.cpan.org/perldoc?Path::Class::File