while ( my $client = $sock->accept() ) {
warn "connect from ", dump $client->peeraddr, $client->peerport;
while ( my $client = $sock->accept() ) {
warn "connect from ", dump $client->peeraddr, $client->peerport;
read $client, my $move, 4;
my ( $x, $y ) = unpack 's>s>', $move; # big-endian 16 bit
warn "MOVE $x $y\n";
read $client, my $move, 4;
my ( $x, $y ) = unpack 's>s>', $move; # big-endian 16 bit
warn "MOVE $x $y\n";
} elsif ( $command == MOUSE_CLICK ) {
read $client, my $b, 2;
my ( $button, $state ) = unpack 'cc', $b;
warn "MOUSE_CLICK $button $state\n";
} elsif ( $command == MOUSE_CLICK ) {
read $client, my $b, 2;
my ( $button, $state ) = unpack 'cc', $b;
warn "MOUSE_CLICK $button $state\n";
} elsif ( $command == MOUSE_WHEEL ) {
read $client, my $amount, 1;
$amount = unpack 'c', $amount;
} elsif ( $command == MOUSE_WHEEL ) {
read $client, my $amount, 1;
$amount = unpack 'c', $amount;