use MLDBM qw(AnyDBM_File Storable);
use Storable qw(retrieve_fd);
use Fcntl qw (:DEFAULT :flock);
use FindBin qw($Bin);

tie (%hash, "MLDBM", $Bin.'mj-test-schedules', O_CREAT|O_RDWR, 0666)
	or die $!;
#	sysopen(DB_SCHEDULE_SAFETYLOCK, $Bin.'/mj-test-schedules',  O_RDWR|O_CREAT, 0666);
	
	
#open FILE, ">", $Bin.'/filename.txt' or die $!;

open (DF,$Bin.'/mj-test-schedules') or die $!;
flock (DF, LOCK_SH) or die $!;

$href=retrieve_fd(*DF);
close DF;


    while ( my ($key, $value) = each(%$href) ) {
        print "$key => $value\n";
    }

#print  FILE $_ while (<DB_SCHEDULE_SAFETYLOCK>) ;
	

#close FILE;

untie %hash;