#!/usr/bin/perl
open ACCESS, "|tail -f /var/log/apache/access.log";
eval{
   alarm(10);
   while(<ACCESS>){
      print;
   }
};
close ACCESS;