$LOCK_EX = 2;$LOCK_UN = 8;open(DB, ">>datafile") || die "Can't open: $!\n";flock(DB, $LOCK_EX) || die ; print DB "asdf:asdf\n";flock(DB, $LOCK_UN) || die;