perl -e " $|=0; for (1,2,3) { print qq[\r hi n $_] ; sleep 1; } print qq[\r done now \n]; "

perl -e " $|=1; for (1,2,3) { print qq[\r hi n $_] ; sleep 1; } print qq[\r done now \n]; "