#!/usr/bin/perl -w

use termfusion;
set_clients( [
	      { conn => undef,
		host => "localhost",
		port => "2342",
		cols => undef, rows => undef,
		x1 => undef, x2 => undef,
		y1 => undef, y2 => undef
		} ,
	      { conn => undef,
		host => "localhost",
		port => "2343",
		cols => undef, rows => undef,
		x1 => undef, x2 => undef,
		y1 => undef, y2 => undef
		}
	      ],
	     [
	      { host => "localhost",
		port => "2344"
		}
	      ]
	     );
connect_clients();
show_clients_info();
clrscr();
printxy( 3, 45, "world" );
printallxy( 10, 10, "foo" );
printallcenter( "hello" );
# print {$clients[0]->[0]->{conn}} "\e[H\e[J";
# print {$clients[0]->[1]->{conn}} "hello, world";
disconnect_clients();