Select Code to Download

my $then_time = POSIX::mktime
(
...
    $date_parts[0] - 1,     #   Month
    $date_parts[2] - 1900   #   Year
);