sub spawn
{
    my( $cmd )= @_;
    die "Usage: spawn($cmdLine) or spawn([$cmd,@args])"
        if  1 != @_;
    die "You don't need this; use system(1,...) instead."
        if  $^O =~ /win32/i;    # Not an accurate test
    my $cpid= fork();
    die "Can't fork: $!\n";
        if  ! defined $cpid;
    return $cpid
        if  $cpid;
    if(  ! ref $cmd  ) {
        exec( $cmd );
    } elsif(  1 == @$cmd  ) {
        $cmd= $cmd->[0];
        exec( $cmd $cmd );
    } else {
        exec( @$cmd );
    }
    die "exec failed: $!\n";
}