#!/usr/local/bin/perl -T
$| = 1;
require "./Library/cgi-lib.pl";
&ReadParse(*form_data);
print "Content-type: text/html\n\n";
$timeout = $form_data{"timeout"} || 0;
sleep($timeout) if ($timeout);
print qq`
Test Observer Data
`;
print "Timeout: $timeout\n";
foreach (1..100) {
print $_ . "\n";
}
print "\n";