open SELF "< $0" or die ...;
flock SELF, LOCK_EX | LOCK_NB or exit;