use strict;
use warnings;
use Win32::OLE;
use utf8;

my $tts = Win32::OLE->new("SAPI.SpVoice");
$tts->{voice} = $tts->GetVoices()->Item(3);
$tts->Speak("こんにちは");