my ($month, $day) = (localtime $epoch)[4,3];
    $month++;  ## again, months run from 0 to 11