#!/usr/bin/perl -- use strict; use warnings; use CGI; my $q = CGI->new; my %headers = map { $_ => $q->http($_) } $q->http(); print $q->header('text/html'); print "

\n";
for my $header ( sort keys %headers ) {
    print "$header: $headers{$header}\n";
}
print "

\n";