third_party/WebKit/LayoutTests/http/tests/fetch/resources/slow-failure.cgi

   1 #!/usr/bin/perl
   2
   3 use IO::Socket;
   4
   5 $| = 1;
   6
   7 autoflush STDOUT 1;
   8
   9 print "Content-Type: text/html; charset=us-ascii\n";
  10 print "Transfer-encoding: chunked\n\n";
  11
  12 sleep 2;
  13
  14 print "hoge\nfuga\n";