1#!/usr/bin/perl
2use CGI qw/:standard/;
3my $cgi = new CGI;
4my $request_uri = $ENV{'REQUEST_URI'};
5print (STDERR "REQUEST_URI: $request_uri\n");
6
7if ($request_uri =~ m/^\/dynamic\/200\// ) {
8  print header ( -status => 200,
9                 -type   => 'text/plain' );
10  print ("found here\n");
11}
12elsif ($request_uri =~ m|^/dynamic/302/| ) {
13  print header( -status=>302,
14                -location => 'http://www.example.org/');
15}
16elsif ($request_uri =~ m/^\/dynamic\/404\// ) {
17  print header ( -status => 404
18                 -type   => 'text/plain' );
19  print ("Not found here\n");
20}
21elsif ($request_uri =~ m/^\/send404\.pl/ ) {
22  print header ( -status => 404
23                 -type   => 'text/plain' );
24  print ("Not found here (send404)\n");
25}
26elsif ($request_uri =~ m/^\/dynamic\/nostatus\// ) {
27  print ("found here\n");
28}
29else {
30  print header ( -status => 500,
31                 -type   => 'text/plain');
32  print ("huh\n");
33};
34