Select Code to Download

    my $sock = IO::Socket::INET->new(PeerAddr => '127.0.0.1',
                                         PeerPort => '9090',
                                         Proto    => 'tcp')
      or die("Couldn't connect: $!");

    my $server = IO::Socket::INET->new( Proto     => 'tcp',
...
                                        Listen    => 10,
                                        Reuse     => 0)
        or die("$!");

# server
sub write {
...

    return $buffer;
}

server
  ...
...
  
  Tried to read 00000000000000014848 bits but only got 13140 bits