use strict;
use Win32::OLE;
my $voice;
$voice = Win32::OLE->new("Speech.VoiceText") or die("TTS failed");
$voice->Register("", "perl"); 
$voice->{Enabled} = 1;

$voice->speak("hello world", 1);