use FCGI;
use IO::Socket;

my $f = 'INET';
my @tcp = ( '127.0.0.1', '8888' );
my $lsock = "/tmp/spawn.sck";

my $s;
if( $f eq 'UNIX' ){
  ( -S $lsock ) and ( unlink( $lsock ) or die $! );
  $s = FCGI::OpenSocket( $lsock, 5 );
} else {
  $s = FCGI::OpenSocket( join( ':', @tcp ), 5 );
}
$s or die $!;
my $r =  FCGI::Request( \*STDIN, \*STDOUT, \*STDERR, \%ENV, $s );
while($r->Accept() >= 0) {
  print "Content-type: text/html\r\n\r\n"; 
}