#!/usr/bin/perl -w
use strict;
print "Content-type: text/html\n\n";
my $i = 0;
while($i < 10){
print "$i\n";
sleep(5);
$i++;
}