#! perl -slw
use strict;

sub lastSunday {
    my $now = time;
    $now -= 43200 while scalar localtime($now) !~ m[Sun];
    return $now;
}

print scalar localtime( lastSunday() );