#!/usr/bin/perl

use warnings;
use strict;


$|=1;

use CGI qw/:standard/;

print header;

print "line one<br>\n";
print ' ' x 4096;
sleep(3);
print "line two<br>\n";
print ' ' x 4096;
sleep(3);
print "line three<br>\n";
print ' ' x 4096;
sleep(3);
print "line four\n";
print "<br>\n";
sleep(3);