#!/usr/bin/perl -w

use CGI qw(:standard -nph);
use CGI::Carp qw(fatalsToBrowser);

$| = 1;

print header, start_html("File Change Tracker!");

while (1)
{
    open(GROW, "growfile") || die "Cannot open growfile!\n";
    while(<GROW>)
    {
        s/&/\&amp;/g;
        s/</\&lt;/g;
        s/>/\&gt;/g;
        print pre($_);
    }
    sleep 5;
}

print end_html;
</PRE></BODY></HTML>