sub backticks {
  open(my $fh, "-|", @_) or die "fork failed: $1";
  do { local($/); <$fh> }
}