$| = 1;  # Turn off buffering on STDOUT.
print(  "    5"); sleep(1);
print("\r    4"); sleep(1);
print("\r    3"); sleep(1);
print("\r    2"); sleep(1);
print("\r    1"); sleep(1);
print("\r** BOOM **\n");