sub now {
    my @time = localtime;
    return sprintf '%d-%02d-%02d %02d:%02d:%02d',
            $time[5]+1900, $time[4]+1, $time[3], $time[2], $time[1], $time[0];
          #     year          month     day       hour      min       sec
}