$myhashinfo=new DB_File::HASHINFO;
$myhashinfo->{bsize}=65535;
unlink "revmap_check";
tie(%diskrevmap, "DB_File", "revmap_check", O_CREAT|O_RDWR, 0666, $myhashinfo) or die "Unable to build on-disk database tie. $!\n";