perl -ne "print qq/\r$. lines processed/;select undef, undef, undef, 0.2" your_file_here #### .