sub Yesterday {
  # sidetrack: following golf just a thought ...
  my($yy, $ym, $yd) = Add_Delta_Days(Today(), -1);
  return sprintf "%04d-%02d-%02d", $yy, $ym, $yd;
}