open(my $fh, $file_name) or die;
my $text = do { local $/; <$fh> };     # slurp
close $fh;