#!/usr/bin/perl
$\=$/;
@n[0] = localtime;
$n[1] = localtime;
print for @n;