#!/usr/bin/perl -w
require 5.003;
$indent=4;
#
# Copyright by The HDF Group.
# Copyright by the Board of Trustees of the University of Illinois.
# All rights reserved.
#
# This file is part of HDF5.  The full HDF5 copyright notice, including
# terms governing use, modification, and redistribution, is contained in
# the COPYING file, which can be found at the root of the source code
# distribution tree, or in https://support.hdfgroup.org/ftp/HDF5/releases.
# If you do not have access to either file, you may request a copy from
# help@hdfgroup.org.
# Run program in background
use warnings;
use strict;
use Carp;
use Time::HiRes;
use POSIX 'setsid';
my $child_pid;
my $child_proc;
my $cmd = $ARGV[0];
my $debug = 1;
print "\nStart child process\n";
start_child();
print "\nStarted child process\n";
sub start_child {
    die "cannot execute cmd: $cmd" unless -x $cmd;
    if ($^O eq 'MSWin32') { # Windows
        require Win32::Process;
        Win32::Process::Create($child_proc, $cmd, $cmd, 0, 0, ".") || confess "Could not spawn child: $!";
        $child_pid = $child_proc->GetProcessID();
    }
    else { # Unix
        $SIG{CHLD} = 'IGNORE';
        $child_pid = fork();
        unless (defined $child_pid) {
            confess "Could not spawn child (Unix): $!";
        }
        if ($child_pid == 0) { # child
            unless ($debug) {
                open STDIN, "<", "/dev/null"   or die "Can't read /dev/null: $!";