while ($client = $server->accept())
{
  $client->autoflush(1);
  $request = <$client>;
  $request =~ tr/\x0d\x0a//d; # Remove and CR's and LF's
  if ($request =~ m|^GET /(.*?)(\?(.*))? HTTP/1.[01]|)
  {
    # GET request
    print STDERR "GET request\n";
    $page = uri_unescape($1);
    $querystring = uri_unescape($3);

    PROCESS_REQUEST ();
  }
  elsif ($request =~ m|^POST /(.*) HTTP/1.[01]|)
  {
    # POST request
    print STDERR "POST request\n";
    $page = uri_unescape($1);

    # How to read in the POST's passed hidden variables here ? ? ?
    
    PROCESS_REQUEST ();
  }
  else
  {
    REDIRECT_TO_ERROR_PAGE ('Unprocessed request.');
  }
  close($client);
}