use DB_File;
use Data::Dumper;


use MLDBM qw(DB_File Data::Dumper); 

$dbPath = "x.dat"    
tie %db, 'MLDBM', $dbPath, O_RDONLY, 0640 or die $!;