i used code on fedora, centos and windows but it doesn't seem to change the window size
#!/usr/bin/perl
use warnings;
use IO::Socket::INET;
use Socket qw(SOL_SOCKET SO_RCVBUF IPPROTO_IP IP_TTL);
my $socket = IO::Socket::INET->new(LocalPort => "2525", Proto => 'tcp', PeerHost => "192.168.147.1", PeerPort => "23");
$socket->setsockopt(SOL_SOCKET, SO_RCVBUF, 512000);