tie( %hash, 'DB_File::Lock', $file, O_RDONLY, 0666, $DB_TREE, 'read' ) || die ( "db file open error ..:$!:"); #### db file open error ..:: at ./db_read.pl line 12