#!/usr/bin/perl

print $time = (localtime),"\n";