use CGI::Fast qw(:standard);
    $COUNTER = 0;
    while (new CGI::Fast) {
        print header;
        print start_html("Fast CGI Rocks");
        print
            h1("Fast CGI Rocks"),
            "Invocation number ",b($COUNTER++),
            " PID ",b($$),".",
            hr;
        print end_html;
    }

##</code><code>##

LoadModule fcgid_module /usr/lib/apache2/modules/mod_fcgid.so
ScriptAlias /cgi-bin/ "/srv/perl/cgi-bin/"
AddHandler fcgi-script .fcgi
AddType application/x-httpd-fcgi .fcgi
  
....
<VirtualHost *:80>
  ...
  <Directory /srv/perl/cgi-bin/>
    AllowOverride All
    <FilesMatch "\.fcgi$">
      SetHandler cgi-script
    </FilesMatch>
  </Directory>
  ...
</VirtaulHost>

##</code><code>##

SetHandler fcgid-script