1#!/usr/bin/perl
2
3my $status = 200;
4
5if (defined $ENV{"QUERY_STRING"}) {
6	$status = $ENV{"QUERY_STRING"};
7}
8
9print "HTTP/1.0 ".$status." FooBar\r\n";
10print "\r\n";
11