*** empty log message ***

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";
+}

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