#!/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";