#!/usr/bin/perl

use strict;
use FCGI;

my $socket = FCGI::OpenSocket(":2005", 5);
my $request = FCGI::Request(\*STDIN, \*STDOUT, \*STDERR, \%ENV, $socket);

while ($request->Accept() >= 0) {
	print "Content-Type: text/plain\r\n\r\n";

	print $ENV{"REQUEST_METHOD"}." ".$ENV{"REQUEST_URI"};
	if ((my $param = $ENV{"QUERY_STRING"}) ne "") {
		print "?".$param;
	}
	print " ".$ENV{"SERVER_PROTOCOL"};
}

FCGI::CloseSocket($socket);