#!/usr/bin/perl

$| = 1;
print qq|...|; #PRINT HEADERS, ETC.

while (1) {

#CODE THAT READS
#IN DATABASE STUFF
#AND OUTPUTS IT TO STDOUT

sleep 5;
}