#!/usr/bin/perl

# http://127.0.0.1/cgi-bin/test_shared.fcgi
# http://127.0.0.1/cgi-bin/test_shared.fcgi?param1=foo&param2=baz

use strict;
use warnings;

use MCE::Shared;

use CGI::Fast;
use FCGI::ProcManager;

# construct any shared objects and mutexes (optional)

my $cache = MCE::Shared->cache( max_keys => 500, max_age => 3600 );
my $count = MCE::Shared->scalar( 0 );
my $nosql = MCE::Shared->minidb();

# launch FCGI manager next

my $proc_manager = FCGI::ProcManager->new({ n_processes => 4 });
   $proc_manager->pm_manage();

# calling init enables parallel IPC for data flow
# worker is assigned 1 of 12 channels

MCE::Shared->init();

# at last, the loop

while ( my $query = CGI::Fast->new() ) {
   $proc_manager->pm_pre_dispatch();

   print "Content-type: text/html\r\n\r\n";

   print "<hr>\n";
   print "$_ = $ENV{$_}<br>\n" foreach sort keys %ENV;
   print "<hr>\n";

   my %params;

   foreach ( sort $query->param() ) {
      $params{$_} = $query->param($_);
      print $_, " = ", $params{$_}, "<br>\n";
   }

   print "<hr>\n";

   print "$$: ", $count->incr(), "<br>\n";

   my $val = $cache->get('foo') // do {
       $cache->set( foo => 'bar'.$count->get() )
   };

   print "$$: ", $val, "<br>\n";

   $proc_manager->pm_post_dispatch();
}