Help for this page

Select Code to Download

Select or download this

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