Select Code to Download

use Win32::Event;
use 5.010;
...
}

say "exiting";

use Win32::Event;
use 5.010;
...
say $^E;
$event->set;