t/lib/TestCGIBinChainRoot/root/cgi/path/test.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use CGI ':standard';
   7
   8 die '$ENV{MOD_PERL} must not be set' if $ENV{MOD_PERL};
   9
  10 print header;
  11 print 'foo:',param('foo'),' bar:',param('bar')
  12     ,' from_chain:',param('from_chain');