showthings.cgi

#! /usr/bin/perl

use Data::Dumper;
use CGI;
my $a = new CGI;
print $a->header('text/plain');
print Dumper($a);
print "XX ", $a->http('Host'), "\n";
print "YY ", $ENV{'HTTP_HOST'}, "\n";
print "ZZ ", $a->http('Authorization'), "\n";