#!/usr/bin/perl -w

$|=1;

use strict;

while (1) {
	my $loc = <>;
	print time(), "\t", $loc;
}