for ( 1 .. 100 ) {
    print "spawning job $_";
    system 'start \\Windows\\system32\\notepad.exe';
    my $wid = WaitWindow( 'Notepad', 1 );
    SetForegroundWindow( $wid );
    SendKeys( '%{F4}' );
}