my $process;
   my $cmd_line = join " ", map {
      ( my $s = $_ ) =~ s/"/"""/g;
      $s = qq{"$s"} if /[\"\s]/;
      $s;
   } @$cmd;

   _debug "cmd line: ", $cmd_line
      if _debugging;

   Win32::Process::Create( 
      $process,
      $cmd->[0],
      $cmd_line,
      1,  ## Inherit handles
      NORMAL_PRIORITY_CLASS,
      ".",
   ) or croak "$!: Win32::Process::Create()";

##</code><code>##

   my $cmd_line = join " ", map {
      (my $s = $_) =~ s/([\\"])/\\$1/g;
      qq{"$s"};
   } @$cmd;