>>203

$time_string = sprintf('%6$4d/%5$02d/%4$02d %3$02d:%2$02d:%1$02d', (@temp=(localtime $sec)[0..5], $temp[5]+=1900, $temp[4]++));