文件Slurp
使用File::Slurp可以只需一个函数把文件内容读入标量或者按行保存到数组中
use File::Slurp;
my $text=read_file('filename');
my @lines=read_file('filename');
