my $count = 0;
while(1){

  sleep 1;
  system (  "flite -t  $count"  );  # may need cleaner options
$count++;
}