my $file = "/home/doc57/data/administrators.db";

 tie( %hash, 'DB_File::Lock', $file, O_RDONLY, 0666, $DB_TREE, 'read' ) || die ( "db file open error ..:$!:"); 
##</code><code>##

-rw-r--r--    1 doc57    Group1      8192 Sep 29 11:46 /home/doc57/data/administrators.db