402 my $r = ref $cmd
403              ? system { $cmd->[0] } is_win32 ? quote_native( @$cmd ) : @$cmd
404              : system $cmd;