#!/usr/bin/perl

system("clear");

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

##</code><code>##

#!/usr/bin/perl

system("clear");

$on = "true";
while ($on = "true") {
system("read $in");
system("echo "$in" >> chatlog.txt);
}