#!/usr/bin/perl

$|++;

for (0 .. 9) {
    my $line = $_ x 10;
    print "$line\r";
    sleep(1);
}