sub pidqx { # returns pid + the usual backtick result
    my ( $cmd ) = @_;
    my $pid = open my $ph, '-|', $cmd or die "$!: $cmd";
    local $/ = undef();
    my $backtick = <$ph>;
    close $ph;
    return ( $pid, $backtick );
}