#!/usr/bin/perl

use warnings;
use strict;
print scalar(localtime(time())), "\n";