for (1..5) {
   system('start DoThis.exe');
}

##</code><code>##

my @pids;
for (1..5) {
   push @pids, system(1, "DoThis.exe");
}

waitpid($_, 0) for @pids;