blob: 6881b2a21b50a759a867a15b23b4abd365a0cb47 [file] [log] [blame]
#!/usr/bin/perl -wT
use strict;
print "Content-Type: text/plain\n";
print "Cache-Control: no-store\n";
print "Access-Control-Allow-Origin: *\n\n";
foreach (keys %ENV) {
if ($_ =~ "HTTP_") {
print $_ . ": " . $ENV{$_} . "\n";
}
}