Select Code to Download

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

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