notepad-plus-plus/lexilla/test/examples/perl/x.pl

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