#!/usr/bin/perl
$|++;

my $len;
foreach my $digit (1..20) {
    $len = length $digit;
    print $digit;
    sleep 1;
    print "\b" x $len;
}