#!/bin/perl -w

sub xxtime() {
        my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
        my $datetime = sprintf "%4d-%02d-%02d %02d:%02d:%02d\n",$year+1900,$mon+1,$mday,$hour,$min,$sec;
        return $datetime;
}

my $datetime = xxtime();

print "\n time date equals $datetime\n";