Select Code to Download

use IO::Socket;
use strict;
...
    }
}
close($server);

my $lock = get_lock();
# --- critical stuff ---
...
    my $lock = shift || return;
    return close $lock;
}