while(my $client = $server->accept()) {
  my $pid = fork;
  if (!defined $pid) {
    die "Could not fork()\n";
  } elsif ($pid == 0) {
    # random
    # client
    # handling
    # stuff
    exit;
  }
}