#!perl

use Win32::OLE;
my $voice = Win32::OLE->new('SAPI.SpVoice');

$voice->speak("3.09");