mirror of
https://github.com/cesanta/mongoose.git
synced 2024-12-05 02:49:00 +08:00
17 lines
341 B
Plaintext
17 lines
341 B
Plaintext
|
#!/usr/bin/env perl
|
||
|
|
|
||
|
|
use Cwd;
|
||
|
|
use CGI;
|
||
|
|
|
||
|
|
use vars '%in';
|
||
|
|
CGI::ReadParse();
|
||
|
|
|
||
|
|
print "Content-Type: text/html\r\n\r\n";
|
||
|
|
|
||
|
|
# 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 "Some data";
|
||
|
|
flush STDOUT;
|
||
|
|
sleep 5;
|