#!/usr/bin/perl
#
#
#
$LogFile="/usr/local/apache2/eventmgr/ncomount/page.log";

$naptime=3;

#Reads LOGFILE continuously
open(LOGFILE,"<$LogFile") ||  die "Couldn't open file Status - $!\n";
  for (;;) {
   for ($logpos = tell(LOGFILE); <LOGFILE>; $logpos = tell(LOGFILE)) {
	while(<LOGFILE>){
	    print;
     }
    sleep $naptime;
    seek(LOGFILE, $logpos, 0);  # seek to last known
  }
 }