if ($cached == 0) {
  exit unless flock(DATA, LOCK_EX | LOCK_NB);
  ...
  flock(DATA, LOCK_UN);
}
...
__END__
__DATA__