perl -MTime::Local -wle '
   for ($x = timelocal(0,0,0,1,0,2001); $x < timelocal(0,0,0,1,0,2002); $x += 24*60*60) {
     (localtime($x))[6] % 6 and print substr(localtime($x),0,10)
}'