sub cat {
  my ($mode, $f) = ("<", @_);
  open my $F, $mode, $f or die "Can't open $f for reading: $!";
  local $/ = undef;
  return scalar <$F>;
}