move files

diff --git a/bin/say b/bin/say
new file mode 100755 (executable)
index 0000000..a10b184
--- /dev/null
+++ b/bin/say
@@ -0,0 +1,36 @@
+#!/usr/bin/env perl
+use strict;
+my %E = (
+);
+
+sub espeak {
+  local $_ = $_[0];
+  #s/[\r\n]//g;
+  s@(\.)@$1<break time="800ms"/>@g;
+  #die "<$_>";
+  s@(;)@$1<break time="500ms"/>@g;
+  s@(,)@$1<break time="200ms"/>@g;
+  s@(:)@$1<break time="300ms"/>@g;
+  return $_;
+}
+
+$_ = qq{
+It was day.
+It was sunny.
+};
+
+#die $_;
+
+#open(SAY,"| espeak -v mb-en1+f5 -s 140 -m 2>/dev/null") or die $!;
+open(SAY,"| espeak -m 2>/dev/null") or die $!;
+
+if (-t STDIN) {
+  $_ = join(" ",@ARGV);
+} else {
+  $_ = join(" ",<>);
+}
+
+$_ = espeak($_);
+printf SAY $_;
+
+close SAY;