Use Windows' text to speech API from your Perl script A. Sinan Unur November 21, 2014

Jonathan Stowe commented on Facebook:

I hate say in any computer language that doesn't actually make audible speaking sounds.

Well, you can use Windows' text to speech API from Perl:

#!/usr/bin/env perl use 5.020; # Why not?! use strict; use warnings; use Win32::OLE; $Win32::OLE::Warn = 3; my $speaker = Win32::OLE->new('SAPI.spvoice'); while (my $line = <DATA>) { next unless $line =~ /\S/; $speaker->Speak( $line ); } __DATA__ Flexible & Powerful That's why we love Perl 5 Visit Perl.org

Now, if you want to replace the builtin say , I am afraid you are stuck. But, even with the use 5.020; line, you could add a no feature 'say'; , and define your own say function.

Additionally, the speech API understands some XML directives.