print header, start_html('DB printing');
                                              

print "<table>";

for (grep defined($_), (keys %db)[-1 .. -100]) {
.
.
.