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);



##</code><code>##

Encountered CODE ref, using dummy placeholder at /usr/lib/perl/5.10/Data/Dumper.pm line 190.
$VAR1 = 'DB';
$VAR2 = bless( do{\(my $o = 33211984)}, 'AnyDBM_File' );
$VAR3 = 'SR';
$VAR4 = bless( {
                 'dumpmeth' => '',
                 '_dumpsub_' => sub { "DUMMY" }
               }, 'MLDBM::Serializer::Storable' );