# debug
sub showdata {
  my ($head,$data) = @_;
  print qq(<table border=1><tr><td> key </td><td> $head </td></tr>\n);
  foreach (sort keys %$data){
    print qq(<tr><td> $_ </td><td> $$data{$_} </td></tr>\n);
  }
  print q(</table>);
}

showdata("Unverified",\%dbm1);
showdata("Verified",\%dbm2);