use warnings;
use strict;

while (1) {
    print "$0 in a loop....\n";
    sleep 1;
}