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";

}