#!/usr/bin/perl
###########################################
# dumphash -- Print confirmed emails
# Mike Schilli, 2002 (m@perlmeister.com)
###########################################
use warnings;
use strict;

use DB_File::Lock;
use Fcntl qw(:flock O_RDONLY);
use EmailReg;

tie my %DATA, 'DB_File::Lock',
    $EmailReg::DB_FILE,
    O_RDONLY, 0644, $DB_HASH, 
    'read' or die "Cannot tie";

for (keys %DATA) {
    print "$_\n" if $DATA{$_} eq "C";
}

untie %DATA;