Select Code to Download

#!/usr/bin/perl
use warnings;
...
        $I = 0;
    }
}

sub manual_loop_control {
$mw1->DoOneEvent( DONT_WAIT | ALL_EVENTS );
$mw2->DoOneEvent( DONT_WAIT | ALL_EVENTS );
$mw3->DoOneEvent( DONT_WAIT | ALL_EVENTS );
}

$mw->repeat(10, \&manual_loop_control);