Don't forget to encode your data. Angle brackets in the log file will make life miserable otherwise.

#!/usr/bin/perl -w

use CGI; 
use strict;
use HTML::Entities;

my $query = new CGI; 

print $query->header(), 
      $query->start_html(-title=>"My log file"), 
      $query->h1('Tail');

# put your tailing method here

while (1) {
    while (my $input = <INPUT>) {
        $input .= '<br/>';
        print encode_entities( $input );
    }
    sleep $delay_period;
    seek(INPUT, 0, 1);
}
print $query->end_html();
[download]

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.