$filename=...

$file=File::Tail->new(name=>$filename, maxinterval=>5, interval=+>1, tail=>-1, errmode=>\&do_exit);

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