while(my $client = $server->accept())
{
 next if fork;
 # random
 # client
 # handling
 # stuff
 exit;
}