#!e:\perl\bin\perl.exe -w
use strict;
use warnings;
use diagnostics;

for( my $n=1; $n<1000; $n++) {
	my $back = length $n;
	print $n, substr "\b\b\b\b", 0, $back;
}