use File::Tail;
use HTTP::Date;
use DBI;

$name = "c:\\temp\\test.log";

$file=File::Tail->new(name=>$name, interval=>1, maxinterval=>10, tail=>100);
  while (defined($line=$file->read)) {
      print "$line\n";
  }