sub Terminal
{
    my ($server, $client) = @_;
    my $input;
    my $key;
    
    while (1) 
    {
        #ReadMode(4, $client);
        while (not defined ($key = ReadKey(0, $client))) {};
        #ReadMode(0, $client);
        if ($key eq "q")
        {
            return 1;
        }
        else
        {
            print "Got character '" . ord($key) . "'\r\n";
        }
    };
    
    return 0;
}

my $server = IO::Socket::Telnet::HalfDuplex->new
( 
	Proto => 'tcp', 
	LocalPort => 23, 
	Listen => SOMAXCONN, 
	Reuse => 1
); 

print "Starting server\n";

while (my $client = $server->accept()) 
{ 
	Terminal($server, $client);
	
	close $client;
}