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