#!/usr/local/bin/perl -T $| = 1; print "Content-type: text/html\n\n"; print qq` Test Observer Data 

`;

foreach (1..100) {
    print $_ . "\n";
}

print "\n
";