Get HTTP Headers by perl

get_http_header.cgi

#!/usr/bin/perl --
use strict;
use warnings;
use CGI;

my $q = CGI->new;
my %headers = map { $_ => $q->http($_) } $q->http();

print $q->header('text/plain');
print "------------------------------\n";
print "Got the following headers:\n";
print "------------------------------\n";
for my $header ( keys %headers ) {
    print "$header: $headers{$header}\n";
}

print "\n";
print "------------------------------\n";
print "Server Env:\n";
print "------------------------------\n";
for my $key ( sort ( keys ( %ENV ) ) ) {
    print "$key: $ENV{$key}\n";
}