{
my $db = DBM::Deep->new(
file => $filename,
- fh => $fh,
autobless => 1,
);
{
my $db = DBM::Deep->new(
file => $filename2,
- fh => $fh2,
autobless => 1,
);
my $obj = bless {
my ($fh3, $filename3) = new_fh();
my $db = DBM::Deep->new(
file => $filename3,
- fh => $fh3,
autobless => 1,
);