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

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

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