my $yesterday= do {
    my($y,$m,$d)= (localtime(
        time-60*60*(12+(localtime)[2]) ))[5,4,3];
    sprintf "%04d-%02d-%02d", 1900+$y, 1+$m, $d;
};