use Fcntl qw(:flock);
# time passes
foreach (1..10) {
  $is_locked = flock(FH, LOCK_EX | LOCK_NB);
  last if $is_locked;           ### Or gets both flags
  sleep 1;
}
# Test $is_locked here