seek $fh, 0, 0;
my $s = do {
  local $/;
  <$fh>;
};