perl -e '@N=gmtime;$t=time+86400*(1-$N[6]);while(1){@n=gmtime($t+=7*86400);last if $n[5]!=$N[5]; printf("%d-%02d-%02d\n",$n[5]+1900,$n[4]+1,$n[3])}'

##</code><code>##

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
}'