debian/perl-framework/t/htdocs/apache/http_strict/send_hdr.pl.PL


1
2
3
4
5
6
7
8
9
10

use MIME::Base64;
use strict;
use warnings;

print "Content-type: text/plain\r\n";
print decode_base64($ENV{QUERY_STRING}), "\r\n";
print "\r\n";
print "Hi!\n";
print "SERVERNAME=$ENV{SERVER_NAME}\n";
print "HTTP_HOST=$ENV{HTTP_HOST}\n";