#!/usr/bin/perl

use strict;
use warnings;
use FCGI::Client;
use IO::Socket::INET;

my $port = 9000;
    my $sock = IO::Socket::INET->new(
        PeerAddr => '127.0.0.1',
        PeerPort => $port,
    ) or die $!;
    my $client = FCGI::Client::Connection->new( sock => $sock );
    my ( $stdout, $stderr ) = $client->request(
        +{
            REQUEST_METHOD => 'GET',
            QUERY_STRING   => 'foo=bar',
            SCRIPT_URI     => '/index.php',
            REQUEST_URI    => 'x' x 1000,
        },
        ''
    );

print "Stdout: $stdout\n";
print "Stderr: $stderr\n";