#!/usr/bin/perl -wT
use strict;
use CGI;
$|=1; # turn of output buffering..

# do some setup stuff, and print HTML headers here

# display a simple (looped & animated) "loading" image
print <<ENDHTML;
<img src="loading.gif" name="loading">
ENDHTML

# load stuff from the database...

print <<ENDHTML;
<script language="JavaScript">
<!--
  document.images['loading'].src = 'empty.gif';
//-->
</script>
ENDHTML

# print output