use strict;
use warnings;

$| ++;

my $msg = "";
for (1..100) {
    $msg = "\b" x length($msg) . $_;
    print $msg;
    sleep 1;
}