view release on metacpan or  search on metacpan

bin/cfk-share-mem-proxy.pl  view on Meta::CPAN

    'h|help'         => \$options{help},
    'm|man'          => \$options{man},
);

pod2usage(1)             if $options{help};
pod2usage(-verbose => 2) if $options{man};

croak "Please, specify a preload option" unless $options{preload};
my $svc_coderef;
my $ret = require $options{preload};
if ($ret && ref $ret eq 'CODE') {
    $svc_coderef = $ret;
}
croak "Error preloading: $@" if $@;

my $cfd = $ENV{_CFK_COMMAND_FD} or die "no command fd";
my $sfd = $ENV{_CFK_STATUS_FD}  or die "no status fd";
my $lfd = $ENV{_CFK_LOG_FD}     or die "no log fd";

open my $cfh, "<&=$cfd"