use warnings;
use strict;
use IO::Socket::INET;
use Devel::Peek;

my $sock = IO::Socket::INET->new(Listen => 5, LocalPort => 9000,
	LocalAddr => 'localhost',  Proto => 'tcp') or die $!;
my $cli = $sock->accept();
$cli->read(my $in, 5);
Dump($in);

##</code><code>##

use warnings;
use strict;
use IO::Socket::INET;

my $sock = IO::Socket::INET->new("localhost:9000") or die $!;
print $sock "foo\n\0\0";

##</code><code>##

SV = PV(0x573aeb89cfe0) at 0x573aeb8e2b50
  REFCNT = 1
  FLAGS = (POK,pPOK)
  PV = 0x573aeb8ed890 "foo\n\0"\0
  CUR = 5
  LEN = 10

##</code><code>##

66:6f:6f:0a:00:00