#!perl.exe

print "$ENV{'SERVER_PROTOCOL'} 200 OK\n";
print "Server: $ENV{'SERVER_SOFTWARE'}\n";
print "Content-type: text/plain\n\n";
$| = 0;
for ($loop = 10; $loop >= 0; $loop--)
	{
	print "$loop\n";
	sleep (1);
	}
print "Blast Off!\n";
exit (0);