my $r = ref $cmd
         ? system { $cmd->[0] }
               is_win32
                ? map {
                   # Probably need to offer a win32 escaping
                   # option, every command may be different.
                      ( my $s = $_ ) =~ s/"/"""/g;
                      $s = qq{"$s"};
                      $s;
                      } @$cmd
                  : @$cmd
         : system $cmd;