Is it possible to "share" or "change ownership" of a socket server?

For example:

#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket::INET;

my $server = IO::Socket::INET->new(
    LocalPort => 8000,
    Type      => SOCK_STREAM,
    Listen    => SOMAXCONN,
    Blocking  => 0,
    
);
die "Can't create server socket! $!\n" unless $server;

sub addSomething {
    # connects on port 8001
    # and submits entry to
    # be added to the database
    # then waits for a status
    # from $server on port 8000
}

sub updateSomething {
    # sends update request on
    # port 8001 then waits for
    # status from $server on
    # port 8000
}

[download]

Is there some way that $server can be "taken control of" by either addSomething or updateSomething then returned to its independent state once either subroutine is finished using it? Thank you for any advice you can provide!

In reply to How to share a non-blocking IO::Socket::INET server/pass "listening" control? by ljamison

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.