Select Code to Download

use FCGI;
use IO::Socket;
...
while($r->Accept() >= 0) {
  print "Content-type: text/html\r\n\r\n"; 
}

use IO::Socket;
use FCGI::Client;
...
my $c = FCGI::Client::Connection -> new( sock => $s, timeout => 3, );
$c -> request( +{ REQUEST_METHOD => "GET", }, "" );
$s -> close;

REQUEST_TIME_OUT at [.]/FCGI/Client/Connection.pm line 25
        FCGI::Client::Connection::__ANON__('ALRM') called at [..]/FCGI
+/Client/Connection.pm line 92
...
        FCGI::Client::Connection::_read_record('FCGI::Client::Connecti
+on=HASH(0x28983aa0)', 'FCGI::Client::Connection=HASH(0x28983aa0)') ca
+lled at [..]/FCGI/Client/Connection.pm line 37
        FCGI::Client::Connection::_receive_response('FCGI::Client::Con
+nection=HASH(0x28983aa0)', 'IO::Socket::UNIX=GLOB(0x2875d0ac)') calle
+d at [..]/FCGI/Client/Connection.pm line 28
        FCGI::Client::Connection::request('FCGI::Client::Connection=HA
+SH(0x28983aa0)', 'HASH(0x28796110)', '') called at client00.pl line 1
+8