#!/usr/bin/perl
use POSIX qw/strftime/;
print strftime('%d-%m-%Y %H:%M:%S',localtime);
print "\n";