my $db = tie(%h, 'SDBM_File', 'filename', O_RDWR|O_CREAT, 0666)
       or die "Couldn't tie SDBM file 'filename': $!; aborting";
--> # right here
    flock($db->fd, LOCK_EX);