#!/usr/bin/perl 
#
use FCGI;
my $socket = FCGI::OpenSocket(":9001", 5);

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

my $count = 1;

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