use Win32::Event;
use 5.010;

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