#!/usr/bin/perl -W

use strict;
my $r = shift;
print "Content-type: text/html\n\n";

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

exit(0);