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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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