print "\r$.\t" unless $. % 1000;