#!/usr/local/bin/perl -w
###########################################
# text2speech - with Google translate help
# Mike Schilli, 2013 (m@perlmeister.com)
###########################################
use strict;
use Speech::Google::TTS;

my $tts = Speech::Google::TTS->new();

$tts->{'lang'} = 'de';
$tts->say_text( "Ja was ist denn da los!");
system "mplayer", $tts->as_filename();