#!/usr/bin/perl 

use strict;
use warnings;
use FCGI;

my %env;
my $req = FCGI::Request( \*STDIN, \*STDOUT, \*STDERR, \%env );
if( $req->IsFastCGI ) {
    print "This is FastCGI\n\n";
}
else {
    print "This is CGI\n\n";
}
print_env( "Request Environment", \%env );
$req->Flush();
sleep 3;
print_env( "Initial Environment", \%ENV );
$req->Finish();

sub print_env { 
    my($label, $envp) = @_; 
    print("$label:<br>\n<pre>\n"); 
    my @keys = sort keys(%$envp); 
    foreach my $key (@keys) { 
        print("$key=$$envp{$key}\n"); 
    } 
    print("</pre><p>\n"); 
}