my $x;
$client->recv($x, 2);

my $shortint = unpack("s*", $x);