use Fcntl qw(
O_WRONLY 
O_TRUNC 
O_CREAT 
O_CREAT 
O_RDWR
O_RDONLY
LOCK_EX
LOCK_SH 
LOCK_NB);

use MLDBM qw(AnyDBM_File Storable);


##</code><code>##

my $dbm = tie %{$self->{DB_HASH}}, 'MLDBM', $self->_db_filename, O_CREAT|O_RDWR, FILE_CHMOD

##</code><code>##

sysopen(DB_SCHEDULE_SAFETYLOCK, $self->_lockfile_name,  O_RDWR|O_CREAT, FILE_CHMOD ) 

##</code><code>##

 
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;