#! /usr/bin/perl
use strict ;
use warnings ;
my $i=0 ;
while (1)
{
print "Testing $i\n" ;
$i++ ;
sleep(1);
}