perl -e '
my @N = gmtime;     # today (calculations in gmtime to avoid tz offsets)

my $t = time + 86400 * (1 - $N[6]);    # calculate the time of Monday (1)

while(1) { 
      my @n = gmtime($t += 7*86400); # advance a week at a time

      last if $n[5] != $N[5];           # done if the year doesn't match today's

     printf ("%d-%02d-%02d\n", $n[5]+1900, $n[4]+1, $n[3]); # print result
}'