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

##</code><code>##

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