use Fcntl qw( :flock );
#[...]
      open(TMPA, "+> $tempfile")
          or die "Could not open tempfile: $!";
      flock(TMPA, LOCK_EX|LOCK_NB) or die "ERROR: $!";