sub new_client {

  my $sock = $main_socket->accept();
  my $pid = fork();
  unless( defined $pid && $pid == 0 ) {
    $sock->close;
  }
  if ($pid == 0) {

    $main_socket->close; # close main socket in child
    #process_request
    .
    .
  }
}