| #!/usr/bin/perl -w |
| |
| # flush the buffers after each print |
| select (STDOUT); |
| $| = 1; |
| |
| print "Content-Type: text/html\n\n"; |
| |
| for ($count=1; $count<3000; $count++) { |
| print "                 "; |
| print "                "; |
| print "                 "; |
| print "                "; |
| print "                "; |
| print "               "; |
| print "                 "; |
| print "                  "; |
| } |