[Perl] Funcion Speak

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

1 2 3 4 5 6 7 8 9 10 11 12

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

Ejemplo de uso

1	speak("Hi brother");