#!/usr/bin/perl

use Data::Dumper;
use FCGI;

my $socket = FCGI::OpenSocket( "/var/lib/apache2/fcgid/sock/test.sock", 20 );
my $request = FCGI::Request( \*STDIN, \*STDOUT, \*STDERR, \%ENV, $socket );

print "Request-Data:\n". Dumper($request). "\n";

while($request->Accept() >=0) {
        print ( "ENV-Data:\r\n" );
        my $env = $request->GetEnvironment();
        print Dumper($env);
        print ( "\r\n" );
}