my $yesterday= join"-",mapcar{sprintf "%0".shift()."d",pop()+pop()}
[4,2,2],[(localtime(
time-60*60*(12+(localtime)[2]) ))[5,4,3]],[1900,1,0];