Select Code to Download

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

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

print $client $ack;