perl -E'say 86400*int(time/86400)'