use File::Slurp;
my $text = read_file($filename);