use Fcntl qw(:flock);
flock DATABASE, LOCK_SH or warn "Couldn't obtain shared lock: $!\n";