my $listener = IO::Socket::INET->new(
  Listen => 4,
  LocalPort => 42,
  Proto => 'tcp'
);

my $client = $listener->accept();

my $client_said = <$client>;