Select Code to Download

while (1) {
    print "0123456789" x 20;
    sleep(1);
}

while (1) {
    print "0123456789" x 20 . "\n";
    sleep(1);
}

$| ++;
while (1) {
    print "0123456789" x 20;
    sleep(1);
}

use IO::Handle;
STDOUT->autoflush();
...
    print "0123456789" x 20;
    sleep(1);
}