blob: 324820562052e79eca16d2591736c41fa8e1b881 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
#!/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;
|
