perl -MAnyDBM_File -le"print for @AnyDBM_File::ISA"
##</code><code>##

use Data::Dumper;
$Data::Dumper::Indent=1;
$Data::Dumper::Useqq=1;
die Dumper( \%DATABASE );