#!/usr/bin/perl 
use Term::ReadKey;

until ($Name){
     print "Your callsign?>";
     chomp ($Name = <>);
     if ($Name) {
         print "say: !! to exit\n\n";
	     open (TX, ">>d:/telnet/say.txt");
	     printf TX time." $Name entered.\n";
	     close (TX);
        }
    }

$Lastime = time;
while($key.$Input ne "!!"){

open (RX, "<d:/telnet/say.txt");
@Said = <RX>;
close (RX);
foreach $Said(@Said){
     $Said =~ m/(^\d+)(\s[\D \d]*)/;
     if ($1 >= $Lastime){
         print $2;
		 Tmptime = $1;
        }
    }
$Lastime = $Tmptime + 1;

if ($key = ReadKey 2){
     print $key;
	 if (ord($key) != 13){
		 chomp($Input = <>);
	    }
	 else {
		 $key="";
		 $Input = "";
		}
     open (TX, ">>d:/telnet/say.txt");
	 printf TX time." $Name said: $key$Input\n";
	 close (TX);
		
	}
}

open (TX, ">>d:/telnet/say.txt");
printf TX time." $Name left.\n";
close (TX);
		
print "\n\nBye.";