my $buf;
read($socket, $buf,2);
my $len = unpack 'n', $buf;
read($socket, $buf, $len);