#!/usr/bin/perl -w

use strict;
use POSIX;

while (<>) {
	print strftime("%x %X", localtime($_)), "\n";
}