Select Code to Download

use strict;
use warnings;
...
  $speech->{voice} = $speech->GetVoices("name = $voice")->Item(0) if $
+voice;
  $speech->Speak($text);
}

$VAR1 = bless( {
                 'Count' => 5
               }, 'Win32::OLE' );