sub get_date {
    use Time::gmtime;
    my $tm = gmtime;

    return sprintf "%4.4d-%2.2d-%2.2d %2.2d:%2.2d:%2.2d",
    $tm->year+1900,
    ($tm->mon)+1,
    $tm->mday,
    $tm->hour,
    $tm->min,
    $tm->sec;
}