$|=1;
for (1..3){
  print "\r$_";sleep 1;
}