Help for this page

Select Code to Download

Select or download this

while (1) {
    while (<INPUT>) { .... }
    sleep $delay_period;
    seek(INPUT, 0, 1);
}

Select or download this

#!/usr/bin/perl -w

...
    seek(INPUT, 0, 1);
}
print $query->end_html();