#!/usr/bin/perl
use strict;
use warnings;
use POSIX;

$|++;

my $pipe = '/tmp/speak.pipe';
unlink $pipe;
`mkfifo $pipe`;
die unless( -p( $pipe ) );

open( IN, $pipe ) || die "Could not read pipe: $pipe - $@";
while( 1 ) {
  my @lines = <IN>;
  unless( scalar @lines > 0 ) {
    sleep 1;
    next;
  }
  speak( @lines );
}

sub speak {
  my @phrases = @_;

  open( TOUCH, '>/tmp/talking' ); close(TOUCH);

  my $say = join( '. ', @phrases );
  system( '/usr/bin/flite', '-t', $say );

  unlink( '/tmp/talking' );
}

unlink $pipe;

1;