while ( 1 ) {# prevents from exiting when client connects without SSL
  while (my $c = $d->accept()) {
    my $pid = fork();
    die "Cannot fork: $!" unless defined($pid);
    if ($pid == 0) {
      # &handle($c);
      sleep(10);
      exit(0);
    }
  }
}