#!/usr/bin/perl
#
# Last updated by root on Fri Feb 28 05:44:01 EST 2003
#

use Festival::Client;
#use strict;

my $Festival = Festival::Client->new("localhost");
die "Can't connect to Festival server.\n" unless $Festival;
my $text = join(" ",@ARGV);

if ($text) {
   $Festival->say($text);
} else {
   while (<STDIN>) {
      $Festival->say($_);
   }
}     
   

#
# END.
#