sub doPad {
    my ($val, $len) = @_;
    while(length($val) < $len) {
    $val = "0$val";
    }
    return $val;
}

sub getDateTime {
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time());

    return    doPad($mday,2) . "-" .
        doPad($mon+1,2). "-" .
        ($year + 1900) . " " .
        doPad($hour,2) . ":" .
        doPad($min, 2) . ":" .
        doPad($sec, 2) . "\n";

}

##</code><code>##

sub getDateTime {
    my ($sec,$min,$hour,$mday,$mon,$year) = localtime(time());

    return sprintf "%02d-%02d-%d %02d:%02d:%02d\n",
                   $mday, $mon+1, $year+1900, $hour, $min, $sec;
}

##</code><code>##

use POSIX ();
sub getDateTime {
    return POSIX::strftime("%d-%m-%Y %H:%M:%S\n", localtime(time) );
}