Select Code to Download

use Fcntl qw(:flock);
# time passes
...
  sleep 1;
}
# Test $is_locked here

use Carp;
use Fcntl qw(:flock);
...
  }
  return $is_locked ? $fh : undef;
}