for (my $i = 0; $i < 10; $i++){
sleep 1;
print "\x1b[A" if $i;
print " i = $i\n";
}