Select Code to Download

use strict;
use Win32::OLE qw(EVENTS);
...
        elsif($_[0] == 2){return 'Emphasis';}
        else{die "unknown SpeechVisemeFeature";}
}

 OLE last error 0
EventInterests res $VAR1 = 33790;
...
          "StreamPosition" => 28820,
          "eventName" => "EndStream"
        };