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