Select Code to Download

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

perl -e '
my @N = gmtime;     # today (calculations in gmtime to avoid tz offset
+s)
...

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