use IO::Socket;
use FCGI::Client;

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

my $s = $f eq 'UNIX'
  ? IO::Socket::UNIX->new( "PeerAddr" => $lsock, "Type" => SOCK_STREAM,
      Timeout => 3, )
  : IO::Socket::INET->new( "PeerAddr" => $tcp[ 0 ],  "PeerPort" => $tcp[ 1 ],
      "Type" => SOCK_STREAM, Timeout => 3, )
;
$s or die $!;
my $c = FCGI::Client::Connection -> new( sock => $s, timeout => 3, );
$c -> request( +{ REQUEST_METHOD => "GET", }, "" );
$s -> close;