use IO::Handle;
$file = $ARGV[0];
open(INFILE,"< $file");
while(1)
{
  while(<INFILE>)
  {
    print("$_");
    sleep(5);
  }
  INFILE->clearerr(); 
}