my @tm = localtime(time);

     $tm[4] += 1;
     $tm[5] += 1900;

     foreach (@tm) {
        $_ = "0$_" if $_ < 10;
     }

     $stats->{TimePoint}->{Date} = "$tm[5]-$tm[4]-$tm[3]";
     $stats->{TimePoint}->{Time} = "$tm[2]:$tm[1]:$tm[0]";