($y,$m,$d) = split/\s/,`date "+%Y %M %d"`;
($y,$m,$d) = split/\s/,`date -d "1 day ago" "+%Y %M %d"`;