#!/usr/bin/perl
use warnings;
use strict;
use MLDBM;
use POSIX; #for O_CREAT and O_RDWR symbols
use strict;
my %mldbm;
my $mldb_file="mlanydbmdemo.dbm";
tie %mldbm, 'MLDBM', $mldb_file, O_CREAT|O_RDWR, 0644;