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