($m, $d) = (localtime)[4, 3];

$b = time - ($d * 86400);

while((localtime($b+=86400))[4] == $m){
	print "",(localtime($b))[3],"\n";
}