my $then_time = POSIX::mktime
(
    0,                      #   Seconds
    0,                      #   Minutes
    0,                      #   Hours
    $date_parts[1],         #   Day (of month)
    $date_parts[0] - 1,     #   Month
    $date_parts[2] - 1900   #   Year
);