Help for this page

Select Code to Download

Select or download this

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