Hola a todos  , con esta simple funcion vamos a lograr que nuestra computadora logre hablar y nos
diga lo que queremos , aunque solo puede hablar bien en ingles

#By Doddy H
 
use Win32::OLE;
 
sub speak {
 
 
my $habla = Win32::OLE->new("SAPI.SpVoice");
 
$habla->Speak($_[0],0);
 
}
 

Ejemplo de uso