Help for this page
my ( $seconds, $minutes, $hours, $day_of_month, $month_idx, $years_since_1900, $day_of_week_number, $day_of_year, $id_dst ) = localtime($now);
$now -= 43200 while (localtime($now))[6]; # count back half days till +Sunday