perl -e"my $c = 0; while(1){print qq!\r!,$c++;  my $a = q!1234!; substr($a,0,2)=q!! for 1 .. rand(100); } "