#!/usr/local/bin/perl

print "Content-type: text/html\n\n";
print `cat ../chat/chatter.html`;
print `cat ../chat/end`;
if ((`cat ../chat/chatter.html | wc -l`) > 60 ) {
        print `cp ../chat/chattercleared.html ../chat/chatter.html`;
}