use IO::Socket;
my $sock = new IO::Socket::INET (
	PeerAddr => 'localhost',
	PeerPort => '27183',
	Proto => 'tcp',
);
die "Error: $!\n" unless $sock;
for ($i=1;$i<15;$i++){
	printf $sock ("led%.2u3..\n",$i);
	$answer=<$sock>;
	printf $sock ("g%.2us1%u..\n",$i,$i-1);
	$answer=<$sock>;
	printf $sock ("g%.2us2%u..\n",$i,$i);
	$answer=<$sock>;
	printf $sock ("g%.2us3%u..\n",$i,$i+1);
	$answer=<$sock>;
	printf $sock ("g%.2ur1%u Label goes here. ServerID..\n",$i,$i+1);
	$answer=<$sock>;
	printf $sock ("g%.2ur2%u Status goes here. EventID/Log ..\n",$i,$i+2);
	$answer=<$sock>;
	printf $sock ("g%.2ur3%u Status goes here. Could be ..\n",$i,$i+3);
	$answer=<$sock>;
	printf $sock ("g%.2ur4%u Status goes here. anything ..\n",$i,$i+4);
	$answer=<$sock>;
	printf $sock ("g%.2ur5%u Status goes here. at all. ..\n",$i,$i+5);
	$answer=<$sock>;
	printf $sock ("g%.2ut1%u Label..\n",$i,$i+13);
	$answer=<$sock>;
	printf $sock ("g%.2ut2%u Label..\n",$i,$i+14);
	$answer=<$sock>;
	printf $sock ("g%.2ut3%u Label..\n",$i,$i+15);
	$answer=<$sock>;
	print $sock "lbankleft bank..";
	$answer=<$sock>;
	print $sock "rbankright bank..";
	$answer=<$sock>;
}
close $sock;