add timestamps with perl

example

jkoppe@localhost in ~ at 2012-07-20 13:43:47
--> echo something
something

jkoppe@localhost in ~ at 2012-07-20 13:43:50
--> echo something | timestamp
Fri Jul 20 13:43:54 2012 something

jkoppe@localhost in ~ at 2012-07-20 13:43:54
-->

timestamp

#!/usr/bin/perl

# Don't buffer output
$| = 1;

# Prefix a timestamp to our input lines
while (<>) {
        print scalar localtime, " $_" ;
}