#!/usr/bin/perl -w
# dump idfile contents
#
use strict;

my (%idfile,$id);

dbmopen %idfile, "htm/idfile", 0666 or die "Can't open idfile dbm file-$!\n";

foreach $id (sort keys %idfile) {
  print "$id --> $idfile{$id}\n"
}
