print $tf `date /t`;