$server = IO::Socket::INET->new(
  Listen    => 5,
  LocalPort => 4000,
  Proto     => 'tcp',
  Reuse     => 1,
  Type      => SOCK_STREAM
) or die "Can't create server socket: $!";

##</code><code>##

while ($client = $server->accept()) {

##</code><code>##

print $client $ack;