use DB_File;

my $db
  = tie (my %data, 'DB_File', $file, O_RDWR|O_CREAT, 0640, $DB_BTREE)
    or die $!;
# Now use %data directly, albeit with tie overhead.
# Or use the OO interface (put/get) on $db.