#!/usr/bin/perl -w
use strict;
use File::Tail;

my $log = "/usr/local/apache2/logs/access_log";

my $file=File::Tail->new
(
name=>$log,
interval=>2,
maxinterval=>10
);

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