$now -= 43200 while (localtime($now))[6]; # count back half days till Sunday