use IO::Handle;

for (1..3) {
   print("\r$_");
   STDOUT->flush();
   sleep(1);
}

print("\n");