use Win32::Event;
use 5.010;

$event = Win32::Event->new(1,0,"myevent");
		
while  ($event->wait(0)==0) {
  say $i;
  print $i++;
}

say "exiting";

##</code><code>##

use Win32::Event;
use 5.010;

$event = Win32::Event->new(1,0,"myevent");
say $^E;
$event->set;