Help for this page

Select Code to Download

Select or download this

my $new_sock = $sock->accept();

...
      }
}

Select or download this

while(1) { # loop for the parent

...
close($SERVER);

} #$loop for the parent