for(0..4){
print "starting $_\n";
system("start", "perl.exe",  '-e',  'print qq!hello world\n!;sleep 1;');
print "end of starting $_\n";
}