#!/usr/bin/perl -W
use strict;
print "Content-type: text/html\n\n";
$|=1;

for (my $x=1; $x<=10; $x++) {
    print($x);
    sleep 1;
}

exit(0);