perl -MDateTime -e "printf '%d AB URBE CONDITA / %d September 1993',(localtime(time))[5]+1900+753 ,DateTime->new(year=>1993,month=>9)->epoch/(3600*24)"