]>
Commit | Line | Data |
---|---|---|
7c673cae FG |
1 | #!/usr/bin/env perl |
2 | ||
3 | # Make stdout unbuffered | |
4 | use FileHandle; | |
5 | STDOUT->autoflush(1); | |
6 | ||
7 | # This script outputs some content, then sleeps for 5 seconds, then exits. | |
8 | # Web server should return the content immediately after it is sent, | |
9 | # not waiting until the script exits. | |
10 | print "Content-Type: text/html\r\n\r\n"; | |
11 | print "Some data"; | |
12 | sleep 3; |