perl -E'say 86400*do{use integer; time/86400}'