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);