1#!/usr/bin/env perl
2
3# Make stdout unbuffered
4use FileHandle;
5STDOUT->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.
10print "Content-Type: text/html\r\n\r\n";
11print "Some data";
12sleep 3;
13