#!/usr/bin/perl

system("clear");

$on = "true";
while ($on = "true") {
	system("clear");
	system("cat chatlog.txt");
	system("sleep 3");
	}