chromium/src/third_party/blink/web_tests/http/tests/xmlhttprequest/resources/print-cache-control-header.cgi - manifest_repos/chromium_src - Git at Google

 #!/usr/bin/perl -wT
 use strict;

 print "Content-Type: text/plain\n\n";

 foreach (keys %ENV) {
     if ($_ =~ "HTTP_CACHE_CONTROL") {
         print $_ . ": " . $ENV{$_} . "\n";
     }
 }
	#!/usr/bin/perl -wT
	use strict;

	print "Content-Type: text/plain\n\n";

	foreach (keys %ENV) {
	if ($_ =~ "HTTP_CACHE_CONTROL") {
	print $_ . ": " . $ENV{$_} . "\n";
	}
	}