# get a timestamp in the format YYYYMMDDHMS
my ( $second, $minute, $hour, $dayofmonth, $month, $year )
        = localtime;