tie %db, "DB_File", "$db", O_CREAT | O_RDWR, 0644, $DB_BTREE
  or die "Cannot open file 'db': $!\n";

print "<table>";
foreach (keys %db) {
my ($count, $ip, $time) = split(/\|\|/, $db{$_});
print "<td>$count</td><td>$ip</td><td>$time</td>";
}
</table>