my $content = do {
  local $/; # slurp mode
  open (my $FH, "<", $file) or die "Error in reading file '$file': $!\n";
  <FH>;
}; # do