| 123456789101112 | 
							- #!/usr/bin/env perl
 
- # Make stdout unbuffered
 
- use FileHandle;
 
- STDOUT->autoflush(1);
 
- # This script outputs some content, then sleeps for 5 seconds, then exits.
 
- # Web server should return the content immediately after it is sent,
 
- # not waiting until the script exits.
 
- print "Content-Type: text/html\r\n\r\n";
 
- print "Some data";
 
- sleep 3;
 
 
  |