#!/usr/bin/perl -w

use File::Tail;
my $LogFile="/usr/local/apache2/eventmgr/ncomount/page.log";
my $file=File::Tail->new("$LogFile");

  while (defined($line=$file->read)) {
      print "$line";
  }