[catagits/Catalyst-Controller-WrapCGI.git] / t / lib / TestCGIBinChainRoot / root / cgi / path / test.pl

#!/usr/bin/perl 

use strict;
use warnings;

use CGI ':standard';

die '$ENV{MOD_PERL} must not be set' if $ENV{MOD_PERL};

print header;
print 'foo:',param('foo'),' bar:',param('bar')
    ,' from_chain:',param('from_chain');
Commit	Line	Data
1d40d9c3	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');