Simple server

    POE::Component::Server::TCP->new(
	Port  => 20061,
	ClientConnected => sub {
	    my ($s, $h) = @_[SESSION, HEAP];
	    print "Session ", $s->ID(), " is from ", $h->{remote_ip} if $debug;
	},
	ClientInput => sub {
	    my ($s, $h, $input) = @_[SESSION, HEAP, ARG0];
	    print "Session ", $s->ID(), " got input: $input\n" if $debug;
	    do_input($h->{remote_ip}, $input, $h->{client}, $h);
	},
    );
    $poe_kernel->run();