#!/usr/bin/perl -w use strict; use FCGI::Async; use IO::Async::Loop; my $loop = IO::Async::Loop->new(); sub on_request { my ( $fcgi, $req ) = @_; my $env = $req->params(); my $path = $env->{PATH_INFO} || "/"; my $qs = $env->{QUERY_STRING}; my $method = $env->{REQUEST_METHOD} || "GET"; my $page = < FCGI::Async testing page

Path

$path

Query String

$qs

Method

$method

EOF $req->print_stdout( "Content-type: text/html\r\n" . "Content-length: " . length( $page ) . "\r\n" . "\r\n" . $page . "\r\n" ); $req->finish(); } my $fcgi = FCGI::Async->new( loop => $loop, on_request => \&on_request, ); $loop->loop_forever();