diff --git a/ts/ts.pl b/ts/ts.pl
new file mode 100644
index 0000000..1a55fa9
--- /dev/null
+++ b/ts/ts.pl
@@ -0,0 +1,8 @@
+#!/usr/bin/perl -wT
+use strict;
+use POSIX;
+while (<>) {
+    chomp;
+    $now = strftime('%Y-%m-%dT%H:%M:%S', localtime);
+    print "$now $_\n";
+}
diff --git a/ts/ts.sh b/ts/ts.sh
new file mode 100644
index 0000000..8770150
--- /dev/null
+++ b/ts/ts.sh
@@ -0,0 +1,6 @@
+#!/bin/sh
+while read a 
+do
+    x=$(date '+%Y-%m-%dT%H:%M:%S')
+    echo "$x $a"
+done