for (1..10) {
        print "$_\r"; 
        sleep(1);  
}
print "\n";
$| = 1;
for (1..10) {
        print "$_\r";
        sleep(1);
}
print "\n";