my ($fh, $fn) = tempfile();
my $db = DBM::Deep->new( $fn );