Select Code to Download

use strict;
use warnings;
...
while ($voice->IsSpeaking()) {
    sleep 1;
}

C:\Apps\Perl\dev>perl speech.pl
Win32::OLE(0.1403) error 0x800401f3: "Invalid class string" at speech.
+pl line 7
        eval {...} called at speech.pl line 7
TTS failed at speech.pl line 7.