#!/usr/local/bin/perl -w

use strict;

select(STDOUT);
$| = 1;

print "Content-Type: multipart/x-mixed-replace;boundary=boundary\n\n";
print "--boundary";
print "Content-Type: text/html\n\n";
print "Awaiting query results, please wait ...<br>\n\n";
print "--boundary";

sleep 5;

print "Content-Type: text/html\n\n";
print "blahb lahb lahb\n";
print "--boundary--";