Select Code to Download

sub backticks {
  open(my $pipe, '-|', @_)
...
  local $/ = wantarray ? $/ : undef;
  <$pipe>
}