use warnings;
use strict;

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