Sometimes computers figure out your weaknesses and then use them to distract you from real work. Once you think that you beat them you waste time telling people about them. Its a virus.
This virus speaks output from Perl programs. If I wanted to get really fancy I could create a Tie module to multiplex output to where it should go and speak it as well. Um, let's see if I can forget I thought that.
use Mac::AppleScript qw(RunAppleScript);
foreach ( reverse ( 'blast off!', 1
.. 10 ) )
RunAppleScript( qq| say "$_" | );