my $fh = tempfile();
my $db = DBM::Deep->new( { fh => $fh } );