36 # get a timestamp in the format YYYYMMDDHMS
     37 my ($year, $month, $dayofmonth, $hour, $minute, $second)
     38         = (localtime())[5, 4, 3, 2, 1, 0];