third_party/WebKit/LayoutTests/http/tests/misc/resources/script-slow1.pl

   1 #!/usr/bin/perl -wT
   2
   3 # flush the buffers after each print
   4 select (STDOUT);
   5 $| = 1;
   6
   7 print "Content-Type: application/javascript\r\n";
   8 print "Expires: Thu, 01 Dec 2003 16:00:00 GMT\r\n";
   9 print "Cache-Control: no-store, no-cache, must-revalidate\r\n";
  10 print "Pragma: no-cache\r\n";
  11 print "\r\n";
  12
  13 sleep 2;
  14 print "var i = 3;\n";