Select Code to Download

setsockopt($MySocket,SOL_SOCKET,SO_RCVBUF,100000);

my $packed = getsockopt($MySocket,SOL_SOCKET,SO_RCVBUF);

my $mybuffer = unpack("I", $packed);

print "\n Buffer size : $mybuffer \n";