perl -MDate::Calc=:all -e'$|++;while(){$x=1993;$t=time;($y,$m,$d)=Localtime($t);$dd=Delta_Days($x,9,1,$y,$m,$d);$_=localtime$t;s/^(\S+\s\S+\s)\S+(\s\S+\s)\S+$/$1$dd$2$x/;print"\r$_\t";sleep 1}'