Select Code to Download

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

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