You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
14 lines
298 B
14 lines
298 B
#!/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 "<html><body><pre>\n";
|
|
for my $header ( keys %headers ) {
|
|
print "$header: $headers{$header}\n";
|
|
}
|
|
print "</pre></body></html>\n";
|
|
|