foreach $n (1..10) {
   print "\r";
   print "$n";
   sleep 1;
}