perl -le 'print time() / (24*60*60)'