@date  = (localtime(time))[5, 4, 3, 2, 1, 0];
$date[0]+=1900; $date[1]++;

printf "%4d-%02d-%02d %02d:%02d:%02d\n", @date;