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