Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

MLAWREN / Lock-Socket-0.0.3_2 / example / solo 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

              
#!/usr/bin/env perl
use strict;
use warnings;
use lib 'lib';
use lib '../lib';
use Lock::Socket qw/lock_socket/;
die "usage: $0 PORT COMMAND...\n"
  unless $#ARGV >= 1;
# Unset close-on-exec
$^F = 3;
my $lock = lock_socket( shift @ARGV );
print "Have lock on " . $lock->addr . ':' . $lock->port . "\n";
exec @ARGV
  or die "exec: $!";