#!perl -w

use strict;
use NetServer::Generic;
use Term::ReadKey;

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

my $Server = new NetServer::Generic;
$Server->port(23);
$Server->callback(\&Terminal);
$Server->mode("forking");
print "Starting server\n";
$Server->run();