use strict;
use warnings;

use Fcntl qw(
	LOCK_SH
	O_RDONLY
	O_CREAT
	O_RDWR
);
 
 use Storable qw(nstore store_fd nstore_fd freeze thaw dclone retrieve);

use DBM::Deep;
use MLDBM qw(AnyDBM_File Storable);

use Storable qw(retrieve_fd);
use FindBin qw($Bin);

my ($dbm, $key, $value, %o,$colref );

$dbm = tie %o, 'MLDBM', $Bin.'/mj-test-schedules', O_CREAT|O_RDWR, 0640
	or die $!;

  
  use Data::Dumper;
  $Data::Dumper::Purity=1;
  print Dumper (%$dbm);