Webm
LISTING ONE
     
 

 #include "stdio.h"
  #include <stdlib.h>
     
  void main(void)
  {
     printf("Content-type: text/html\r\n\r\n"); 
     printf("<title>CGI Hello World</title>"); 
     printf("<h1>Hello world!</h1>");
  }
     
and the same script using FastCGI...
     
  #include "fcgi_stdio.h"
  #include <stdlib.h>
     
  void main(void)
  {
     while (FCGI_Accept() >= 0) {
       printf("Content-type: text/html\r\n\r\n"); 
       printf("<title>CGI Hello World</title>"); 
       printf("<h1>Hello world!</h1>");
     }
  }



LISTING TWO
     
 

 #!/usr/local/fcgi/bin/perl
  use Fast::CGI qw(:standard);
     
  # Open databases, and do other time consuming 
  # initialization stuff....
  $COUNTER = 0;
     
  # Here's the main loop
  while (new CGI::Fast) {
    print
        header,
        start_html("FastCGI Script"),
        h1("FastCGI Script"),
        "You are caller ",$COUNTER++,
        " on process number ",strong("$$."),
         hr,
         "Return to ",a({href=>referer()},referer()),
         end_html;
   }