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