while (-e "$base_dir/.lock") {
    sleep 1;
}
##</code><code>##

unlink "$base_dir/.lock" or diehtml("Unlock error: $!\n");