#!/usr/bin/perl -w
use strict;
use warnings;

my $last = time;
while( <> ) {
    my $time = time;
    my $interval = $time - $last;
    print localtime($time)." ($interval)";
    $last = $time;
}