simple/ts/ts.pl

#!@@@perl@@@ -wT
use strict;
use POSIX;
while (<>) {
    chomp;
    my $now = strftime('%Y-%m-%dT%H:%M:%S', localtime);
    print "$now $_\n";
}