Select Code to Download

for ( 1 .. 100 ) {
    print "spawning job $_";
...
    SetForegroundWindow( $wid );
    SendKeys( '%{F4}' );
}

for ( 1 .. 100 ) {
    print "spawning job $_";
...
    SendKeys( '%{F4}' );
    waitpid $pid, 1;
}