/* Stylesheet Snippet */

.pbcont {
   background-color: #000;
   height: 20px;
   width: 250px;
   border: 1px solid #00c;
   margin: 0;
   padding: 0;
}

.pbarchunk {
   margin: 0;
   margin-right: 2px;
   padding: 0;
   background-color: #00c;
   width: 23px;
   height: 20px;
}

##</code><code>##

#!/usr/bin/perl

use CGI; 
# Do CGI stuff
# Print a lot of the HTML;

print "<div class='pbcont'>";
while ($new_val < 100) {
   $new_val = &update();  # get the updated progress
   next unless $new_val > $old_val;
   print "<div class='pbar'> </div>";
}
print "</div>\n";