#! /usr/local/bin/perl

# Set $OUTPUT_AUTOFLUSH to 1, to prevent buffering of STDOUT
select(STDOUT); $|++;


print "HTTP/1.0 200 OK\n";
print $ENV{'SERVER_SOFTWARE'}, "\n";
print "Content-type: text/plain \n\n";
print "Please wait for 30 seconds.\n";
for ($n=30; $n>0; $n=$n-3) {
print "$n..";
sleep (3);
}
print "0\n";

exit (0);