Select Code to Download

sub _open_db { my $self = shift;
warn "_open_db $self $self->{NAME}\n";
...
warn "delete IP_DB complete\n";
    return 1;
}

_open_db Db_file=HASH(0x838ad20) blacklist
_open_db OK IP_DB: HASH(0x83f4960)  STAMP_DB: HASH(0x83f429c)  STAMP_T
+IE: DB_File=SCALAR(0x83670f4)
...
_open_db OK IP_DB: HASH(0x84165dc)  STAMP_DB: HASH(0x84165d0)  STAMP_T
+IE: DB_File=SCALAR(0x842f914)
_open_db Db_file=HASH(0x80f53f0) tracking
_open_db OK IP_DB: HASH(0x842f8b4)  STAMP_DB: HASH(0x842e43c)  STAMP_T
+IE: DB_File=SCALAR(0x80f5540)

close_db Db_file=HASH(0x842e370)
delete STAMP_TIE complete
...
delete IP_DB complete
close_db Db_file=HASH(0x80f53f0)
delete STAMP_TIE complete