Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
while ($voice->IsSpeaking()) {
    sleep 1;
}
  2. or download this
    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.