third_party/blink/web_tests/http/tests/security/xssAuditor/resources/echo-style-attr-value.pl - chromium/src.git - Git at Google

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

 my $cgi = new CGI;

 print "X-XSS-Protection: 1\n";
 print "Content-Type: text/html; charset=UTF-8\n\n";

 print "<!DOCTYPE html>\n";
 print "<html>\n";
 print "<body style=\"background: ".$cgi->param('q').";\">\n";
 print "</body>\n";
 print "</html>\n";
	#!/usr/bin/perl -wT
	use strict;
	use CGI;

	my $cgi = new CGI;

	print "X-XSS-Protection: 1\n";
	print "Content-Type: text/html; charset=UTF-8\n\n";

	print "<!DOCTYPE html>\n";
	print "<html>\n";
	print "<body style=\"background: ".$cgi->param('q').";\">\n";
	print "</body>\n";
	print "</html>\n";