# This next line also does an implicit fork.
        my $pid = open(my $pipe, '-|');  ## no critic
 
        if (not defined $pid) {
                croak sprintf(FAIL_START, $command, $!);
        } elsif (not $pid) {
                # Child process, execs command.