sub lastSunday2 {
    my $now = time;
    my @now = localtime $now;
    return $now -= ( $now[ 6 ] * 2 - 1 ) * 43200;
}