LayoutTests/http/tests/security/contentTypeOptions/resources/script-with-header.pl

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

my $cgi = new CGI;

if ($cgi->param('mime')) {
    print "Content-Type: " . $cgi->param('mime') . "\n";
}
if (!$cgi->param('no-content-type-options')) {
	if ($cgi->param('options')) {
	    print "X-Content-Type-Options: " . $cgi->param('options') . "\n";
	} else {
	    print "X-Content-Type-Options: nosniff\n";
	}
}
print "\n";
print "if (self.console)\n";
print "    console.log(\"Executed script with MIME type: '" .  $cgi->param('mime') . "'.\");\n";
print "self.scriptsSuccessfullyLoaded++;\n";