notepad-plus-plus/scintilla/test/examples/x.pl

use strict;
while ( $r ) {
  printf ( "Example text \n" );
  sleep 1;
}