#!/usr/bin/perl

system("clear");

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