Help for this page
use IO::Socket; use strict; ... } } close($server);
my $lock = get_lock(); # --- critical stuff --- ... my $lock = shift || return; return close $lock; }